perm filename PARRYR.LAP[4,KMC]1 blob
sn#006498 filedate 1972-10-25 generic text, type T, neo UTF8
(LAP INITIALIZE SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL VALUE))
(0 0 (SPECIAL I))
(0 0 (SPECIAL CONCEPT))
(0 0 (SPECIAL WORD))
(0 0 (SPECIAL SL))
(0 0 (SPECIAL FL))
(0 0 (SPECIAL DN))
(0 0 (SPECIAL DV))
(0 0 (SPECIAL AN))
(0 0 (SPECIAL AV))
(0 0 (SPECIAL ANV))
(0 0 (SPECIAL AL))
(0 0 (SPECIAL QL))
(0 0 (SPECIAL RL))
(0 0 (SPECIAL WTS))
(0 0 (SPECIAL WT))
(MOVEI 1 (QUOTE RESTART))
(CALL 1 (E INITFN))
(MOVEI 2 (QUOTE SUBR))
(MOVEI 1 (QUOTE SEND_MAIL))
(CALL 2 (E GET))
(JUMPN 1 TAG6)
(MOVEI 1 (QUOTE (INC (INPUT (4 KMC) RDATA) NIL)))
(CALL 1 (E *EVAL))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVEI 1 (QUOTE ((READ) T)))
(CALL 17 (E ERRSET))
(MOVEM 1 (SPECIAL X))
(CALL 1 (E ATOM))
(JUMPN 1 TAG16)
(HLRZ@ 1 (SPECIAL X))
(CALL 1 (E *EVAL))
(MOVEM 1 0 P)
(JRST 0 TAG15)
TAG16 (MOVE 1 0 P)
(JRST 0 TAG12)
TAG17
TAG15 (JRST 0 TAG1)
TAG12 (SUB P (C 0 0 1 1))
(MOVEI 2 (QUOTE T))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E INC))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG5)
TAG6
TAG21
TAG5 (MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE NEGS))
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL NLIST))
(MOVEI 1 (QUOTE SACTS))
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL SACTS))
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL I))
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL DELNO))
(MOVEI 1 (QUOTE INIT))
(MOVEM 1 (SPECIAL FLARE))
(MOVEI 2 (QUOTE SETS))
(MOVEI 1 (QUOTE FLARELIST))
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL LIVEFLARES))
(MOVEI 1 (QUOTE SENSITIVELIST))
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL SENSITIVELIST))
(MOVEI 2 (QUOTE NOUNS))
(MOVEI 1 (QUOTE DELWDS))
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL DELNLIST))
(MOVEI 2 (QUOTE VERBS))
(MOVEI 1 (QUOTE DELWDS))
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL DELVLIST))
(MOVEI 2 (QUOTE AMBIG))
(MOVEI 1 (QUOTE DELWDS))
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL DELALIST))
(MOVEI 1 (QUOTE 6))
(MOVEM 1 (SPECIAL DLIM))
(MOVEI 1 (QUOTE INTROTOP))
(MOVEM 1 (SPECIAL QWORD))
(MOVEM 1 (SPECIAL LASTTOP))
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVEI 1 (QUOTE "END INPUT PARAMETERS WITH CARRIAGE RETURN OR ALTMODE"))
(CALL 1 (E PRINTSTR))
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVEI 1 (QUOTE "SUPPRESS NON VERBAL FEATURE? [Y,N]"))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEI 2 (QUOTE Y))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG24)
(MOVEI 1 (QUOTE T))
(JRST 0 TAG23)
TAG24 (MOVEI 1 (QUOTE NIL))
TAG25
TAG23 (MOVEM 1 (SPECIAL SUPPRESS))
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVEI 1 (QUOTE "VERSION [WEAK, STRONG]"))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(CAIE 1 (QUOTE WEAK))
(JRST 0 TAG30)
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL WEAK))
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL MISTRUST0))
(MOVEM 1 (SPECIAL MISTRUST))
(MOVEM 1 (SPECIAL FEAR0))
(MOVEM 1 (SPECIAL FEAR))
(MOVEM 1 (SPECIAL ANGER0))
(MOVEM 1 (SPECIAL ANGER))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG27)
TAG30 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVEI 1 (QUOTE "ANGER [LOW, MILD]"))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEI 2 (QUOTE LOW))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG42)
(MOVEI 1 (QUOTE 0))
(JRST 0 TAG41)
TAG42 (MOVEI 1 (QUOTE 12))
TAG43
TAG41 (MOVEM 1 (SPECIAL ANGER0))
(MOVEM 1 (SPECIAL ANGER))
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVEI 1 (QUOTE "FEAR [LOW, MILD]"))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEI 2 (QUOTE LOW))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG46)
(MOVEI 1 (QUOTE 0))
(JRST 0 TAG45)
TAG46 (MOVEI 1 (QUOTE 12))
TAG47
TAG45 (MOVEM 1 (SPECIAL FEAR0))
(MOVEM 1 (SPECIAL FEAR))
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVEI 1 (QUOTE "MISTRUST [MILD, HIGH]"))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(CAIE 1 (QUOTE MILD))
(JRST 0 TAG52)
(MOVEI 1 (QUOTE 0))
(JRST 0 TAG51)
TAG52 (MOVEI 1 (QUOTE 17))
TAG53
TAG51 (MOVEM 1 (SPECIAL MISTRUST0))
(MOVEM 1 (SPECIAL MISTRUST))
(MOVEI 1 (QUOTE NIL))
TAG34
TAG27 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVEI 1 (QUOTE "TRACE VARIABLES? [Y,N]"))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEI 2 (QUOTE Y))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG56)
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL TRACEV))
(JRST 0 TAG55)
TAG56
TAG57
TAG55 (MOVE 1 (SPECIAL PERCENT))
(MOVEM 1 (SPECIAL EOF))
(MOVEI 1 (QUOTE "ARE TWO TELETYPES BEING USED? (Y,N)"))
(CALL 1 (E TERPRI))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(CAIE 1 (QUOTE Y))
(JRST 0 TAG62)
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL TALK))
(MOVEI 1 (QUOTE "WHAT DISK FILE DO YOU WANT THIS INTERVIEW SAVED ON? (5 LETTERS ONLY)"))
(CALL 1 (E TERPRI))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL FILE1))
(MOVEI 3 (QUOTE 5))
(MOVEI 2 (QUOTE 1))
(CALL 3 (E SUBSTR))
(MOVEI 2 (QUOTE "A"))
(CALL 2 (E CAT))
(CALL 1 (E AT))
(MOVEM 1 (SPECIAL FILE2))
(MOVEI 1 (QUOTE (FILE1 NIL T)))
(CALL 17 (E OUT))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG61)
TAG62 (MOVEI 1 (QUOTE "DO YOU WANT THIS INTERVIEW SAVED ON A FILE?(Y,N)"))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(CAIE 1 (QUOTE Y))
(JRST 0 TAG74)
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL SAVE_FILE))
(MOVEI 1 (QUOTE "WHAT FILE DO YOU WANT THIS INTERVIEW SAVED ON?(5 LETTERS ONLY)"))
(CALL 1 (E TERPRI))
(CALL 1 (E PRINTSTR))
(CALL 0 (E READ))
(MOVEM 1 (SPECIAL FILE1))
(MOVEI 3 (QUOTE 5))
(MOVEI 2 (QUOTE 1))
(CALL 3 (E SUBSTR))
(MOVEI 2 (QUOTE "A"))
(CALL 2 (E CAT))
(CALL 1 (E AT))
(MOVEM 1 (SPECIAL FILE2))
(MOVEI 1 (QUOTE (FILE1 NIL T)))
(CALL 17 (E OUT))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG73)
TAG74
TAG100
TAG73 (MOVEI 1 (QUOTE NIL))
TAG66
TAG61 (MOVEI 1 (QUOTE NIL))
(JRST 0 SPECSTR)
NIL
(LAP ANGERMODE SUBR)
(MOVEI 2 (QUOTE 17.5))
(MOVE 1 (SPECIAL ANGER))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVEI 1 (QUOTE ANGER))
(CALL 1 (E CHOOSE))
(CALL 1 (E SAY))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVEI 1 (QUOTE HOSTILEREPLIES))
(CALL 1 (E CHOOSE))
(CALL 1 (E SAY))
TAG3
TAG1 (POPJ P)
NIL
(LAP CHECKFLARE SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL INP))
(0 2 (SPECIAL FLARELIST))
(0 0 (SPECIAL WORD))
(0 0 (SPECIAL WT))
(PUSH P (C 0 0 (QUOTE INIT) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG2)
TAG12 (HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL WORD))
(MOVEI 2 (QUOTE SET))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL FLARELIST))
(MOVEM 1 -2 P)
(CALL 2 (E MEMBER))
(JUMPE 1 TAG15)
(MOVEI 2 (QUOTE WT))
(MOVE 1 -2 P)
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL WT))
(MOVEI 2 (QUOTE SET))
(MOVE 1 -4 P)
(CALL 2 (E GET))
(MOVEI 2 (QUOTE WT))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL WT))
(CALL 2 (E *LESS))
(JUMPE 1 TAG17)
(MOVE 1 (SPECIAL WORD))
(MOVEM 1 -4 P)
(MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(JRST 0 TAG16)
TAG17 (MOVEI 1 (QUOTE NIL))
TAG20
TAG16 (JRST 0 TAG14)
TAG15 (MOVEI 1 (QUOTE NIL))
TAG22
TAG14 (MOVEM 1 0 P)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (CLEARM 1 (SPECIAL WORD))
(MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(MOVE 1 -1 P)
(JUMPE 1 TAG25)
(MOVEI 2 (QUOTE INIT))
(MOVE 1 (SPECIAL FLARE))
(CALL 2 (E EQUAL))
(JUMPN 1 TAG27)
(MOVEI 2 (QUOTE SET))
(MOVE 1 -2 P)
(CALL 2 (E GET))
(MOVEI 2 (QUOTE WT))
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL WT))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E *GREAT))
(JUMPN 1 TAG27)
(CLEARM 1 -1 P)
(JRST 0 TAG26)
TAG27 (MOVE 1 -2 P)
(MOVEM 1 (SPECIAL FLARE))
(MOVE 1 (SPECIAL WT))
(MOVEM 1 (SPECIAL WEIGHT))
(MOVEI 1 (QUOTE NIL))
TAG31
TAG26 (JRST 0 TAG24)
TAG25
TAG36
TAG24 (MOVE 1 -1 P)
(SUB P (C 0 0 3 3))
(JRST 0 SPECSTR)
NIL
(LAP DELREF SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL INP))
(0 0 (SPECIAL WORD))
(CALL 1 (E DELCHECK))
(PUSH P 1)
(JUMPE 1 TAG5)
(MOVE 1 (SPECIAL DELFLAG))
(JUMPE 1 TAG12)
(MOVEI 2 (QUOTE STRONG))
(HLRZ@ 1 0 P)
(CALL 2 (E GET))
(JUMPE 1 TAG14)
(MOVEI 1 (QUOTE 0.39999999))
(MOVEM 1 (SPECIAL FJUMP))
(JRST 0 TAG13)
TAG14 (MOVEI 1 (QUOTE 0.19999999))
(MOVEM 1 (SPECIAL FJUMP))
TAG15
TAG13 (JRST 0 TAG11)
TAG12 (MOVEI 1 (QUOTE 0.5))
(MOVEM 1 (SPECIAL FJUMP))
(MOVE 2 (SPECIAL DELNLIST))
(MOVEI 1 (QUOTE MAFIA))
(CALL 2 (E DELETE))
(MOVEM 1 (SPECIAL DELNLIST))
(MOVEI 1 (QUOTE MAFIASET))
(CALL 1 (E FLMOD))
(MOVEI 1 (QUOTE NIL))
TAG17
TAG11 (MOVE 1 (SPECIAL DELEND))
(JUMPN 1 TAG25)
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL DELFLAG))
(JRST 0 TAG24)
TAG25
TAG26
TAG24 (MOVEI 1 (QUOTE INIT))
(MOVEM 1 (SPECIAL FLARE))
(CALL 0 (E DELSTMT))
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE INTROTOP))
(MOVEM 1 (SPECIAL QWORD))
(MOVEM 1 (SPECIAL LASTTOP))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG4)
TAG5 (MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE MAFIA))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG30)
(MOVE 1 (SPECIAL DELEND))
(JUMPE 1 TAG32)
(MOVEI 1 (QUOTE MAFIASET))
(CALL 1 (E CHOOSE))
(MOVEM 1 0 P)
(CALL 1 (E SAY))
(JRST 0 TAG31)
TAG32 (CALL 0 (E DELSTMT))
(MOVEM 1 0 P)
(CALL 1 (E SAY))
TAG33
TAG31 (JRST 0 TAG4)
TAG30
TAG35
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP DELSTMT SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL STMT))
(MOVE 1 (SPECIAL WEAK))
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE RACKETSET))
(CALL 1 (E FLSTMT))
(JRST 0 TAG1)
TAG5
TAG6 (MOVE 2 (SPECIAL DLIM))
(MOVE 1 (SPECIAL DELNO))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG11)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 (SPECIAL DELNO))
(JRST 0 TAG10)
TAG11 (MOVE 1 (SPECIAL DELNO))
(CALL 1 (E ADD1))
(MOVEM 1 (SPECIAL DELNO))
TAG12
TAG10 (MOVEI 2 (QUOTE 14))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *GREAT))
(JUMPN 1 TAG16)
(MOVEI 2 (QUOTE 14))
(MOVE 1 (SPECIAL ANGER))
(CALL 2 (E *GREAT))
(JUMPN 1 TAG16)
(MOVE 2 (SPECIAL ANGER))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *PLUS))
(MOVE 2 (SPECIAL MISTRUST))
(CALL 2 (E *PLUS))
(MOVEI 2 (QUOTE 24))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG15)
TAG16 (CLEARM 1 (SPECIAL DELFLAG))
(MOVEI 1 (QUOTE CHANGESUBJ))
(CALL 1 (E CHOOSE))
(JRST 0 TAG1)
TAG15
TAG17 (MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL DELFLAG))
(MOVEI 1 (QUOTE INIT))
(MOVEM 1 (SPECIAL FLARE))
(MOVE 1 (SPECIAL DELNO))
(CALL 1 (E CHOOSEDEL))
(MOVEM 1 (SPECIAL STMT))
(CALL 1 (E DELCHECK))
(MOVE 2 (SPECIAL DELNO))
(MOVEI 1 (QUOTE "DEL"))
(CALL 2 (E CAT))
(CALL 1 (E AT))
(MOVEM 1 (SPECIAL LASTSTMT))
(MOVE 1 (SPECIAL STMT))
TAG1 (JRST 0 SPECSTR)
NIL
(LAP DELTALK SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL STMT))
(MOVE 1 (SPECIAL SKEP))
(JUMPN 1 TAG2)
(MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE DISBELIEF))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL STMT))
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0.30000000))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE 0.09999999))
(MOVEM 1 (SPECIAL FJUMP))
(MOVEI 1 (QUOTE BELIEVEREPLIES))
(CALL 1 (E CHOOSE))
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL SKEP))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG3)
TAG4 (MOVE 1 (SPECIAL STMT))
(CALL 1 (E SPECQUES))
(JUMPN 1 TAG12)
(MOVE 1 (SPECIAL STMT))
(CALL 1 (E ANSWER))
(CALL 1 (E SAY))
(JUMPN 1 TAG12)
(TDZA 1 1)
TAG12 (MOVEI 1 (QUOTE T))
TAG10
TAG3 (JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL STMT))
(CALL 1 (E YES))
(JUMPE 1 TAG22)
(CALL 0 (E DELSTMT))
(CALL 1 (E SAY))
(JRST 0 TAG21)
TAG22 (CALL 0 (E DISTRUST))
(CALL 1 (E SAY))
TAG23
TAG21 (CLEARM 1 (SPECIAL SKEP))
(MOVEI 1 (QUOTE NIL))
TAG14
TAG1 (JRST 0 SPECSTR)
NIL
(LAP FEARMODE SUBR)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVEI 2 (QUOTE 18.400000))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE ((EXITS))))
(CALL 1 (E SAY))
(JRST 0 TAG4)
TAG5 (MOVE 1 (SPECIAL REMARK))
(CALL 1 (E QTHREAT))
(JUMPN 1 TAG10)
(MOVEI 1 (QUOTE AFRAID))
(CALL 1 (E CHOOSE))
(CALL 1 (E SAY))
(JUMPN 1 TAG10)
TAG10
TAG6
TAG4 (MOVEI 1 (QUOTE NIL))
(POPJ P)
NIL
(LAP FLAREREF SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL INP))
(MOVE 2 (SPECIAL LIVEFLARES))
(CALL 2 (E CHECKFLARE))
(JUMPE 1 TAG5)
(MOVEI 2 (QUOTE SET))
(MOVE 1 (SPECIAL FLARE))
(CALL 2 (E GET))
(CALL 1 (E FLRECORD))
(JRST 0 TAG4)
TAG5
TAG6
TAG4 (MOVE 2 (SPECIAL DEADFLARES))
(MOVE 1 (SPECIAL INP))
(CALL 2 (E CHECKFLARE))
(JUMPE 1 TAG11)
(MOVEI 2 (QUOTE SET))
(MOVE 1 (SPECIAL FLARE))
(CALL 2 (E GET))
(PUSH P 1)
(MOVE 1 (SPECIAL FLARE))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL INP))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE Q))
(CALL 2 (E XCONS))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E FLTALK))
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE T))
(JRST 0 TAG1)
TAG11
TAG12 (MOVEI 1 (QUOTE NIL))
TAG1 (JRST 0 SPECSTR)
NIL
(LAP FLTALK SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL INP))
(MOVEI 2 (QUOTE 16))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *GREAT))
(JUMPN 1 TAG3)
(MOVEI 2 (QUOTE 16))
(MOVE 1 (SPECIAL ANGER))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG2)
TAG3 (MOVEI 1 (QUOTE INIT))
(MOVEM 1 (SPECIAL FLARE))
(MOVEI 1 (QUOTE CHANGESUBJ))
(CALL 1 (E CHOOSE))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL INP))
(CALL 1 (E ANSWER))
TAG4
TAG1 (JRST 0 SPECSTR)
NIL
(LAP IYOUME SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL INP))
(0 0 (SPECIAL REPLY))
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL TVAL))
(PUSH P (C 0 0 (QUOTE 0) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (SPECIAL INP))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG2)
TAG12 (HLRZ@ 1 -1 P)
(MOVEM 1 -3 P)
(CAIN 1 (QUOTE YOU))
(JRST 0 TAG16)
(CAIN 1 (QUOTE I))
(JRST 0 TAG16)
(CAIE 1 (QUOTE ME))
(JRST 0 TAG15)
TAG16 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E CONS))
(MOVEM 1 -2 P)
(MOVE 1 -5 P)
(JUMPE 1 TAG20)
(CLEARB 1 -7 P)
(JRST 0 TAG17)
TAG20 (MOVEI 1 (QUOTE NIL))
TAG21
TAG17 (JRST 0 TAG14)
TAG15 (MOVE 2 (SPECIAL NLIST))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG23)
(MOVE 1 (SPECIAL TVAL))
(JUMPE 1 TAG24)
(TDZA 1 1)
TAG24 (MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL TVAL))
(JRST 0 TAG14)
TAG23 (MOVE 2 (SPECIAL SACTS))
(MOVE 1 -3 P)
(CALL 2 (E MEMBER))
(JUMPE 1 TAG25)
(MOVE 1 -4 P)
(JUMPN 1 TAG25)
(MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE 2))
(MOVEM 1 -4 P)
(MOVE 1 -2 P)
(CALL 2 (E SUFLIST))
(MOVEM 1 -2 P)
(JRST 0 TAG14)
TAG25 (MOVE 1 -5 P)
(JUMPN 1 TAG27)
(MOVEI 2 (QUOTE ATTIT))
(MOVE 1 -3 P)
(CALL 2 (E GET))
(MOVEM 1 -5 P)
(JUMPE 1 TAG27)
(MOVE 1 -3 P)
(MOVE 2 -2 P)
(MOVEM 1 -6 P)
(CALL 2 (E CONS))
(MOVEM 1 -2 P)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 -10 P)
(MOVEI 1 (QUOTE T))
(MOVEM 1 -7 P)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG14)
TAG27 (MOVE 1 -7 P)
(JUMPE 1 TAG34)
(MOVE 1 -10 P)
(CALL 1 (E ADD1))
(MOVEM 1 -10 P)
(JRST 0 TAG14)
TAG34 (MOVEI 1 (QUOTE NIL))
TAG35
TAG14 (MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 3))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG40)
(MOVE 1 0 P)
(JRST 0 TAG6)
TAG40
TAG41 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (CLEARM 1 -3 P)
(MOVE 1 0 P)
TAG6 (SUB P (C 0 0 2 2))
(MOVE 1 -2 P)
(JUMPE 1 TAG44)
(MOVE 1 0 P)
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *LESS))
(JUMPE 1 TAG44)
(MOVE 1 -3 P)
(JUMPN 1 TAG47)
(HLRZ@ 1 -2 P)
(MOVEI 2 (QUOTE ATTIT))
(MOVEM 1 -4 P)
(CALL 2 (E GET))
(MOVEM 1 -3 P)
(JUMPE 1 TAG47)
(MOVE 2 -2 P)
(MOVE 1 0 P)
(CALL 2 (E *APPEND))
(MOVEM 1 0 P)
(JRST 0 TAG46)
TAG47 (JRST 0 TAG4)
TAG46 (JRST 0 TAG43)
TAG44
TAG52
TAG43 (MOVEI 2 (QUOTE 3))
(MOVE 1 -6 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
TAG55 (MOVEI 2 (QUOTE NEG))
(MOVE 1 -4 P)
(CALL 2 (E GET))
(JUMPE 1 TAG60)
(MOVE 1 (SPECIAL TVAL))
(JUMPE 1 TAG61)
(TDZA 1 1)
TAG61 (MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL TVAL))
(JRST 0 TAG57)
TAG60
TAG62
TAG57 (MOVE 1 0 P)
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 3))
(CALL 2 (E *LESS))
(JUMPE 1 TAG65)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE YOU))
(JRST 0 TAG67)
(HLRZ@ 1 0 P)
(CAME 1 -4 P)
(JRST 0 TAG67)
(MOVEI 2 (QUOTE FLIP))
(MOVE 1 -4 P)
(CALL 2 (E GET))
(JUMPN 1 TAG67)
(MOVEI 2 (QUOTE RELN))
(MOVE 1 -4 P)
(CALL 2 (E GET))
(JUMPN 1 TAG67)
(HLRZ@ 1 (SPECIAL INP))
(CAIE 1 (QUOTE Q))
(JRST 0 TAG72)
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL INTERPERS))
(MOVE 1 (SPECIAL INP))
(CALL 1 (E ANSWER))
(MOVEM 1 (SPECIAL REPLY))
(JRST 0 TAG71)
TAG72 (MOVEI 1 (QUOTE SEEM))
(CALL 1 (E CHOOSE))
(MOVEM 1 (SPECIAL REPLY))
TAG73
TAG71 (JRST 0 TAG66)
TAG67 (JRST 0 TAG4)
TAG66 (JRST 0 TAG64)
TAG65 (HRRZ@ 1 0 P)
(CALL 1 (E CADR))
(CAIE 1 (QUOTE YOU))
(JRST 0 TAG100)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAME 1 -4 P)
(JRST 0 TAG100)
(MOVEI 2 (QUOTE FLIP))
(MOVE 1 -4 P)
(CALL 2 (E GET))
(JUMPN 1 TAG100)
(HLRZ@ 1 0 P)
(CAIN 1 (QUOTE ME))
(JRST 0 TAG77)
TAG100 (HRRZ@ 1 0 P)
(CALL 1 (E CADR))
(CAIE 1 (QUOTE I))
(JRST 0 TAG101)
(MOVEI 2 (QUOTE FLIP))
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 2 (E GET))
(JUMPE 1 TAG101)
(HLRZ@ 1 0 P)
(CAIN 1 (QUOTE YOU))
(JRST 0 TAG77)
TAG101 (HRRZ@ 1 0 P)
(CALL 1 (E CADR))
(CAIE 1 (QUOTE I))
(JRST 0 TAG76)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE YOU))
(JRST 0 TAG76)
(HLRZ@ 1 0 P)
(CAME 1 -4 P)
(JRST 0 TAG76)
(MOVEI 2 (QUOTE FLIP))
(MOVE 1 -4 P)
(CALL 2 (E GET))
(JUMPN 1 TAG76)
TAG77 (MOVEI 2 (QUOTE RELN))
(MOVE 1 -4 P)
(CALL 2 (E GET))
(JUMPE 1 TAG105)
(HLRZ@ 1 0 P)
(CAIE 1 (QUOTE ME))
(JRST 0 TAG104)
TAG105 (MOVE 1 (SPECIAL TVAL))
(JUMPE 1 TAG107)
(MOVEI 2 (QUOTE YMREPLIES))
(MOVE 1 -3 P)
(CALL 2 (E CONS))
(JRST 0 TAG106)
TAG107 (MOVEI 2 (QUOTE OPP))
(MOVE 1 -3 P)
(CALL 2 (E GET))
(MOVEI 2 (QUOTE YMREPLIES))
(CALL 2 (E CONS))
TAG110
TAG106 (CALL 1 (E CHOOSE))
(MOVEM 1 (SPECIAL REPLY))
(JRST 0 TAG103)
TAG104
TAG112
TAG103 (JRST 0 TAG64)
TAG76 (HRRZ@ 1 0 P)
(CALL 1 (E CADR))
(CAIE 1 (QUOTE I))
(JRST 0 TAG116)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAME 1 -4 P)
(JRST 0 TAG116)
(MOVEI 2 (QUOTE FLIP))
(MOVE 1 -4 P)
(CALL 2 (E GET))
(JUMPN 1 TAG116)
(HLRZ@ 1 0 P)
(CAIN 1 (QUOTE YOU))
(JRST 0 TAG115)
TAG116 (HRRZ@ 1 0 P)
(CALL 1 (E CADR))
(CAIE 1 (QUOTE YOU))
(JRST 0 TAG117)
(MOVEI 2 (QUOTE FLIP))
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 2 (E GET))
(JUMPE 1 TAG117)
(HLRZ@ 1 0 P)
(CAIN 1 (QUOTE ME))
(JRST 0 TAG115)
TAG117 (HRRZ@ 1 0 P)
(CALL 1 (E CADR))
(CAIE 1 (QUOTE YOU))
(JRST 0 TAG114)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE ME))
(JRST 0 TAG114)
(HLRZ@ 1 0 P)
(CAME 1 -4 P)
(JRST 0 TAG114)
(MOVEI 2 (QUOTE FLIP))
(MOVE 1 -4 P)
(CALL 2 (E GET))
(JUMPN 1 TAG114)
TAG115 (HLRZ@ 1 (SPECIAL INP))
(CAIN 1 (QUOTE Q))
(JRST 0 TAG125)
(MOVE 1 -2 P)
(JUMPE 1 TAG124)
TAG125 (MOVE 1 -2 P)
(CALL 1 (E LAST))
(HLRZ@ 2 1)
(CAIN 2 (QUOTE YOU))
(JRST 0 TAG123)
TAG124 (MOVE 1 (SPECIAL TVAL))
(JUMPE 1 TAG122)
TAG123 (MOVEI 2 (QUOTE IYREPLIES))
(MOVE 1 -3 P)
(CALL 2 (E CONS))
(CALL 1 (E CHOOSE))
(MOVEM 1 (SPECIAL REPLY))
(JRST 0 TAG121)
TAG122 (MOVEI 2 (QUOTE OPP))
(MOVE 1 -3 P)
(CALL 2 (E GET))
(MOVEI 2 (QUOTE IYREPLIES))
(CALL 2 (E CONS))
(CALL 1 (E CHOOSE))
(MOVEM 1 (SPECIAL REPLY))
(MOVEI 1 (QUOTE 0.09999999))
(MOVEM 1 (SPECIAL FJUMP))
(MOVEI 1 (QUOTE 0.19999999))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE NIL))
TAG126
TAG121 (JRST 0 TAG64)
TAG114
TAG133
TAG64 (MOVE 1 (SPECIAL REPLY))
(JUMPE 1 TAG136)
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE T))
(JRST 0 TAG3)
TAG136
TAG137
TAG4 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 0 0 7 7))
(JRST 0 SPECSTR)
NIL
(LAP NORMAL SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE 16))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG2)
(CALL 0 (E FEARMODE))
(JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE 16))
(MOVE 1 (SPECIAL ANGER))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG3)
(CALL 0 (E ANGERMODE))
(JRST 0 TAG1)
TAG3 (MOVE 1 (SPECIAL DELFLAG))
(JUMPE 1 TAG4)
(MOVE 1 0 P)
(CALL 1 (E DELTALK))
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(CALL 1 (E PROMPT))
TAG5
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP PERSREL SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL INP))
(CALL 1 (E IYOUME))
(JUMPN 1 TAG1)
(MOVE 1 (SPECIAL INP))
(CALL 1 (E APOLOG))
(JUMPN 1 TAG1)
(MOVE 1 (SPECIAL INP))
(CALL 1 (E THREAT))
(JUMPN 1 TAG1)
(TDZA 1 1)
TAG1 (MOVEI 1 (QUOTE T))
(JRST 0 SPECSTR)
NIL
(LAP SELFREF SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL INP))
(0 0 (SPECIAL CONCEPT))
(0 0 (SPECIAL WORD))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 1)
(MOVEI 1 (QUOTE YOU))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG12)
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE YOUR))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG12)
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE YOU'RE))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG11)
TAG12 (MOVEI 1 (QUOTE T))
(MOVEM 1 0 P)
(JRST 0 TAG10)
TAG11
TAG13
TAG10 (MOVE 2 (SPECIAL INP))
(MOVE 1 (SPECIAL NLIST))
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG16)
(MOVEI 1 (QUOTE T))
(MOVEM 1 -1 P)
(JRST 0 TAG15)
TAG16
TAG17
TAG15 (PUSH P (SPECIAL INP))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG2)
TAG25 (HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL WORD))
(MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE INSULT))
(CALL 2 (E GET))
(EXCH 2 1)
(MOVE 1 (SPECIAL WORD))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG30)
(MOVE 1 -2 P)
(JUMPE 1 TAG32)
(MOVE 1 -3 P)
(JUMPN 1 TAG34)
(MOVEI 1 (QUOTE 0.79999999))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE ANGER))
(CALL 1 (E CHOOSE))
(JRST 0 TAG33)
TAG34 (MOVEI 2 (QUOTE 11))
(MOVE 1 (SPECIAL MISTRUST))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG40)
(MOVEI 1 (QUOTE 0.19999999))
(MOVEM 1 (SPECIAL AJUMP))
(JRST 0 TAG37)
TAG40
TAG41
TAG37 (MOVEI 1 (QUOTE DISTANCE))
(CALL 1 (E CHOOSE))
TAG35
TAG33 (JRST 0 TAG31)
TAG32 (MOVEI 1 (QUOTE 0.30000000))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE PERS))
(CALL 1 (E CHOOSE))
TAG43
TAG31 (JRST 0 TAG27)
TAG30 (MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE COMPL))
(CALL 2 (E GET))
(EXCH 2 1)
(MOVE 1 (SPECIAL WORD))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG45)
(MOVE 1 -2 P)
(JUMPE 1 TAG47)
(MOVE 1 -3 P)
(JUMPN 1 TAG51)
(MOVEI 2 (QUOTE 11))
(MOVE 1 (SPECIAL MISTRUST))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG53)
(MOVEI 1 (QUOTE 0.19999999))
(MOVEM 1 (SPECIAL AJUMP))
(JRST 0 TAG52)
TAG53
TAG54
TAG52 (MOVEI 1 (QUOTE DISTANCE))
(CALL 1 (E CHOOSE))
(JRST 0 TAG50)
TAG51 (MOVEI 1 (QUOTE 0.69999999))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE HOSTILEREPLIES))
(CALL 1 (E CHOOSE))
TAG56
TAG50 (JRST 0 TAG46)
TAG47 (MOVEI 1 (QUOTE 0.5))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE SENSREPLIES))
(CALL 1 (E CHOOSE))
(MOVEI 2 (QUOTE (?)))
(PUSH P 1)
(MOVE 1 (SPECIAL WORD))
(CALL 2 (E CONS))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *APPEND))
TAG60
TAG46 (JRST 0 TAG27)
TAG45 (MOVEI 1 (QUOTE NIL))
TAG62
TAG27 (MOVEM 1 -4 P)
(MOVEM 1 0 P)
(MOVE 1 -4 P)
(JUMPE 1 TAG65)
(MOVE 1 0 P)
(JRST 0 TAG21)
TAG65
TAG66 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (CLEARM 1 (SPECIAL WORD))
(MOVE 1 0 P)
TAG21 (SUB P (C 0 0 2 2))
(MOVE 1 -2 P)
(JUMPE 1 TAG71)
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE T))
(JRST 0 TAG5)
TAG71
TAG72 (MOVE 1 (SPECIAL INP))
(CALL 1 (E ADJTYPE))
(MOVEM 1 -3 P)
(PUSH P (SPECIAL INP))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG3 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
TAG100 (HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL WORD))
(MOVEI 2 (QUOTE SET))
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL CONCEPT))
(MOVE 2 (SPECIAL SENSITIVELIST))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG103)
(MOVEI 2 (QUOTE SPECIAL))
(MOVE 1 (SPECIAL CONCEPT))
(CALL 2 (E GET))
(JUMPN 1 TAG105)
(HLRZ@ 1 (SPECIAL INP))
(CAIE 1 (QUOTE Q))
(JRST 0 TAG105)
(MOVE 1 -2 P)
(JUMPE 1 TAG105)
(MOVEI 1 (QUOTE 0.19999999))
(MOVEM 1 (SPECIAL AJUMP))
(MOVE 1 (SPECIAL INP))
(CALL 1 (E ANSWER))
(JRST 0 TAG104)
TAG105 (MOVE 1 -2 P)
(JUMPE 1 TAG107)
(MOVEI 2 (QUOTE TYPE))
(MOVE 1 -5 P)
(CALL 2 (E GET))
(CAIE 1 (QUOTE NEG))
(JRST 0 TAG107)
(MOVE 1 -3 P)
(JUMPN 1 TAG112)
(MOVEI 1 (QUOTE 0.69999999))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE HOSTILEREPLIES))
(CALL 1 (E CHOOSE))
(JRST 0 TAG111)
TAG112 (MOVEI 2 (QUOTE 11))
(MOVE 1 (SPECIAL MISTRUST))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG116)
(MOVEI 1 (QUOTE 0.30000000))
(MOVEM 1 (SPECIAL AJUMP))
(JRST 0 TAG115)
TAG116
TAG117
TAG115 (MOVEI 1 (QUOTE DISTANCE))
(CALL 1 (E CHOOSE))
TAG113
TAG111 (JRST 0 TAG104)
TAG107 (MOVE 1 -2 P)
(JUMPE 1 TAG121)
(MOVEI 2 (QUOTE TYPE))
(MOVE 1 -5 P)
(CALL 2 (E GET))
(CAIE 1 (QUOTE POS))
(JRST 0 TAG121)
(MOVE 1 -3 P)
(JUMPN 1 TAG124)
(MOVEI 2 (QUOTE 11))
(MOVE 1 (SPECIAL MISTRUST))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG126)
(MOVEI 1 (QUOTE 0.30000000))
(MOVEM 1 (SPECIAL AJUMP))
(JRST 0 TAG125)
TAG126
TAG127
TAG125 (MOVEI 1 (QUOTE DISTANCE))
(CALL 1 (E CHOOSE))
(JRST 0 TAG123)
TAG124 (MOVEI 1 (QUOTE 0.69999999))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE HOSTILEREPLIES))
(CALL 1 (E CHOOSE))
TAG131
TAG123 (JRST 0 TAG104)
TAG121 (MOVE 1 -2 P)
(JUMPE 1 TAG133)
(MOVEI 2 (QUOTE SPECIAL))
(MOVE 1 (SPECIAL CONCEPT))
(CALL 2 (E GET))
(JUMPN 1 TAG135)
(MOVEI 2 (QUOTE TYPE))
(MOVE 1 -5 P)
(CALL 2 (E GET))
(JUMPE 1 TAG133)
TAG135 (MOVEI 1 (QUOTE 0.5))
(MOVEM 1 (SPECIAL AJUMP))
(MOVE 1 (SPECIAL CONCEPT))
(CALL 1 (E NCONS))
(MOVEM 1 (SPECIAL CONCEPT))
(MOVEI 1 (QUOTE DEFENSREPLIES))
(CALL 1 (E CHOOSE))
(MOVE 2 (SPECIAL CONCEPT))
(CALL 2 (E *APPEND))
(JRST 0 TAG104)
TAG133 (MOVEI 2 (QUOTE TYPE))
(MOVE 1 -5 P)
(CALL 2 (E GET))
(JUMPE 1 TAG141)
(MOVEI 1 (QUOTE 0.5))
(MOVEM 1 (SPECIAL AJUMP))
(MOVE 2 (SPECIAL WORD))
(MOVE 1 -5 P)
(CALL 2 (E SELFREFREPLY))
(JRST 0 TAG104)
TAG141 (MOVEI 2 (QUOTE SPECIAL))
(MOVE 1 (SPECIAL CONCEPT))
(CALL 2 (E GET))
(JUMPE 1 TAG142)
(MOVEI 1 (QUOTE 0.39999999))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE PERS))
(CALL 1 (E CHOOSE))
(JRST 0 TAG104)
TAG142 (MOVEI 1 (QUOTE 0.19999999))
(MOVEM 1 (SPECIAL AJUMP))
(MOVE 1 (SPECIAL CONCEPT))
(CALL 1 (E NCONS))
(MOVEM 1 (SPECIAL CONCEPT))
(MOVEI 1 (QUOTE GUARD))
(CALL 1 (E CHOOSE))
(MOVE 2 (SPECIAL CONCEPT))
(CALL 2 (E *APPEND))
TAG143
TAG104 (MOVEM 1 -4 P)
(JRST 0 TAG102)
TAG103 (MOVEI 1 (QUOTE NIL))
TAG150
TAG102 (MOVEM 1 0 P)
(MOVE 1 -4 P)
(JUMPE 1 TAG153)
(MOVE 1 0 P)
(JRST 0 TAG74)
TAG153
TAG154 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG3)
TAG4 (CLEARM 1 (SPECIAL WORD))
(MOVE 1 0 P)
TAG74 (SUB P (C 0 0 2 2))
(MOVE 1 -2 P)
(JUMPE 1 TAG157)
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE T))
(JRST 0 TAG5)
TAG157
TAG160 (MOVEI 1 (QUOTE NIL))
TAG5 (SUB P (C 0 0 4 4))
(JRST 0 SPECSTR)
NIL
(LAP OUT FSUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE DOC))
(JRST 0 TAG2)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(MOVEI 1 (QUOTE DOCJOB))
(CALL 2 (E SEND_MAIL))
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE OWN))
(JRST 0 TAG3)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E *EVAL))
(JRST 0 TAG1)
TAG3 (MOVE 1 0 P)
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 3))
(CALL 2 (E *LESS))
(JUMPN 1 TAG12)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR))
(JUMPE 1 TAG12)
(HLRZ@ 1 0 P)
(CALL 1 (E *EVAL))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE DSK:))
(CALL 2 (E XCONS))
(CALL 17 (E OUTPUT))
(JRST 0 TAG11)
TAG12
TAG14
TAG11 (MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE T))
(CALL 2 (E OUTC))
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E *EVAL))
(MOVE 1 0 P)
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 4))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG17)
(HRRZ@ 2 0 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(JRST 0 TAG16)
TAG17 (MOVEI 2 (QUOTE NIL))
TAG20
TAG16 (MOVEI 1 (QUOTE NIL))
(CALL 2 (E OUTC))
(MOVEI 1 (QUOTE NIL))
TAG4
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP INP FSUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE DOC))
(JRST 0 TAG2)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (QUOTE HAR000)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE SEND_MAIL))
(CALL 2 (E XCONS))
(MOVE 2 1)
(MOVEI 1 (QUOTE DOCJOB))
(CALL 2 (E SEND_MAIL))
(HRRZ@ 1 0 P)
(CALL 1 (E CADR))
(CALL 1 (E WAIT_FOR_MAIL))
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E *EVAL))
TAG3
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP READ_MESSAGE SUBR)
(MOVEI 1 (QUOTE "READY:"))
(CALL 1 (E PRINTSTR))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (CALL 0 (E READCH))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(CAME 2 (SPECIAL ALTMODE))
(JRST 0 TAG11)
(CALL 1 (E CADR))
(CAMN 1 (SPECIAL ALTMODE))
(JRST 0 TAG6)
TAG11 (JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(CALL 1 (E TERPRI))
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(SUB P (C 0 0 1 1))
(JCALL 1 (E REVERSE))
NIL
(LAP PRINT_MESSAGE SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL MESSAGE))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPN 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6
TAG7 (HLRZ@ 1 -2 P)
(MOVEM 1 -1 P)
(CALL 1 (E PRINC))
(MOVEM 1 0 P)
(HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG2 (CALL 1 (E TERPRI))
(SUB P (C 0 0 3 3))
(CALL 1 (E TERPRI))
(JRST 0 SPECSTR)
NIL
(LAP PRINT_ALL SUBR)
(PUSH P 1)
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE DSK:))
(CALL 2 (E XCONS))
(MOVE 2 0 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE INPUT))
(CALL 2 (E XCONS))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE INC))
(CALL 2 (E XCONS))
(CALL 1 (E *EVAL))
TAG1 (CALL 0 (E TYI))
(CALL 1 (E TYO))
(CAIE 1 (QUOTE 45))
(JRST 0 TAG11)
(MOVEI 1 (QUOTE ((READCH) T)))
(CALL 17 (E ERRSET))
(MOVEM 1 0 P)
(CALL 1 (E ATOM))
(JUMPN 1 TAG6)
(HLRZ@ 1 0 P)
(CALL 1 (E PRINC))
(JUMPE 1 TAG13)
TAG13
TAG11 (JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE NIL))
(MOVEI 2 (QUOTE T))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E INC))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP ADJTYPE SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL STMT))
(0 0 (SPECIAL WORD))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
TAG14 (HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL WORD))
(PUSH P (C 0 0 (QUOTE (POS NEG AMBIG)) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG3)
TAG22 (HLRZ@ 1 -1 P)
(MOVEM 1 -4 P)
(MOVE 2 1)
(MOVEI 1 (QUOTE ADJLIST))
(CALL 2 (E GET))
(EXCH 2 1)
(MOVE 1 (SPECIAL WORD))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG25)
(MOVEI 3 (QUOTE TYPE))
(MOVE 2 -4 P)
(MOVE 1 (SPECIAL WORD))
(CALL 3 (E PUTPROP))
(MOVE 1 (SPECIAL WORD))
(MOVEM 1 -5 P)
(JRST 0 TAG24)
TAG25 (MOVEI 1 (QUOTE NIL))
TAG26
TAG24 (MOVEM 1 0 P)
(MOVE 1 -5 P)
(JUMPE 1 TAG31)
(MOVE 1 0 P)
(JRST 0 TAG16)
TAG31
TAG32 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG3 (CLEARM 1 -4 P)
(MOVE 1 0 P)
TAG16 (SUB P (C 0 0 2 2))
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(JUMPE 1 TAG35)
(MOVE 1 0 P)
(JRST 0 TAG10)
TAG35
TAG36 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (CLEARM 1 (SPECIAL WORD))
(MOVE 1 0 P)
TAG10 (SUB P (C 0 0 2 2))
(MOVE 1 (SPECIAL WORD))
(SUB P (C 0 0 2 2))
(JRST 0 SPECSTR)
NIL
(LAP ANSVAR SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE A))
(CALL 2 (E GET))
(MOVEM 1 0 P)
(JUMPN 1 TAG5)
(MOVE 1 (SPECIAL FLARE))
(CAIE 1 (QUOTE INIT))
(JRST 0 TAG7)
(MOVEI 1 (QUOTE EXHAUST))
(CALL 1 (E CHOOSE))
(JRST 0 TAG6)
TAG7 (MOVEI 2 (QUOTE SET))
(MOVE 1 (SPECIAL FLARE))
(CALL 2 (E GET))
(CALL 1 (E FLSTMT))
TAG10
TAG6 (JRST 0 TAG1)
TAG5 (HLRZ@ 1 1)
(CALL 1 (E ATOM))
(JUMPN 1 TAG12)
(MOVE 1 -1 P)
(CALL 2 (E CONS))
(CALL 1 (E CHOOSE))
(JRST 0 TAG1)
TAG12 (MOVE 1 0 P)
(JRST 0 TAG1)
TAG13 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP ANSWER SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL ANS))
(0 0 (SPECIAL WORD))
(0 0 (SPECIAL CONCEPT))
(PUSH P 1)
(MOVE 2 1)
(MOVEI 1 (QUOTE TELL))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG5)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE YOU))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE Q))
(CALL 2 (E XCONS))
(MOVEM 1 0 P)
(JRST 0 TAG4)
TAG5 (MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE QUES))
(CALL 2 (E GET))
(MOVE 2 0 P)
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG6)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE QUESTION))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE Q))
(CALL 2 (E XCONS))
(MOVEM 1 0 P)
(JRST 0 TAG4)
TAG6
TAG7
TAG4 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE Q))
(JRST 0 TAG12)
(MOVE 1 (SPECIAL QWORD))
(CAIE 1 (QUOTE INTROTOP))
(JRST 0 TAG12)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE YOU))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG14)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE YOUR))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG12)
TAG14 (MOVEI 2 (QUOTE Q))
(MOVEI 1 (QUOTE INTROTOP))
(CALL 2 (E GET))
(EXCH 2 1)
(MOVE 1 0 P)
(CALL 2 (E ANSWER1))
(MOVEM 1 (SPECIAL ANS))
(JRST 0 TAG11)
TAG12 (MOVE 1 (SPECIAL QWORD))
(CAIN 1 (QUOTE INTROTOP))
(JRST 0 TAG15)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE (YOU YOUR)))
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG21)
(MOVEI 2 (QUOTE Q))
(MOVEI 1 (QUOTE INTROTOP))
(CALL 2 (E GET))
(EXCH 2 1)
(MOVE 1 0 P)
(CALL 2 (E ANSWER1))
(MOVEM 1 (SPECIAL ANS))
(JRST 0 TAG20)
TAG21 (MOVEI 1 (QUOTE NIL))
TAG22
TAG20 (JUMPN 1 TAG16)
(MOVE 1 0 P)
(CALL 1 (E ANSWER2))
(MOVEM 1 (SPECIAL ANS))
(JUMPN 1 TAG16)
(MOVE 1 (SPECIAL QWORD))
(CAMN 1 (SPECIAL LASTTOP))
(JRST 0 TAG25)
(MOVE 1 (SPECIAL LASTTOP))
(MOVEM 1 (SPECIAL QWORD))
(MOVE 1 0 P)
(CALL 1 (E ANSWER2))
(MOVEM 1 (SPECIAL ANS))
(JRST 0 TAG24)
TAG25 (MOVEI 1 (QUOTE NIL))
TAG26
TAG24 (JUMPN 1 TAG16)
TAG16 (JRST 0 TAG11)
TAG15
TAG30
TAG11 (MOVE 1 (SPECIAL ANS))
(JUMPN 1 TAG33)
(HLRZ@ 1 0 P)
(CAIE 1 (QUOTE Q))
(JRST 0 TAG40)
(MOVE 1 0 P)
(CALL 1 (E MISCQ))
(JRST 0 TAG37)
TAG40 (MOVE 1 0 P)
(CALL 1 (E MISCS))
TAG41
TAG37 (MOVEM 1 (SPECIAL ANS))
(MOVEI 1 (QUOTE INTROTOP))
(MOVEM 1 (SPECIAL QWORD))
(MOVEM 1 (SPECIAL LASTTOP))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG32)
TAG33
TAG43
TAG32 (MOVE 2 0 P)
(MOVE 1 (SPECIAL ANS))
(CALL 2 (E ASCAN))
(MOVE 1 (SPECIAL ANS))
(SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP ANSWER1 SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL CONCEPT))
(0 0 (SPECIAL ANS))
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
TAG14 (HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL CONCEPT))
(MOVE 2 -4 P)
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG17)
(HLRZ@ 1 (SPECIAL CONCEPT))
(MOVEM 1 (SPECIAL LASTTOP))
(MOVEI 2 (QUOTE Q))
(CALL 2 (E GET))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG3)
TAG27 (HLRZ@ 1 -1 P)
(MOVEM 1 -4 P)
(MOVE 2 -6 P)
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG32)
(HLRZ@ 1 -4 P)
(MOVEM 1 (SPECIAL QWORD))
(CALL 1 (E ANSVAR))
(MOVEM 1 (SPECIAL ANS))
(JRST 0 TAG31)
TAG32 (MOVEI 1 (QUOTE NIL))
TAG33
TAG31 (MOVEM 1 0 P)
(MOVE 1 (SPECIAL ANS))
(JUMPE 1 TAG36)
(MOVE 1 0 P)
(JRST 0 TAG23)
TAG36
TAG37 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG3 (CLEARM 1 -4 P)
(MOVE 1 0 P)
TAG23 (SUB P (C 0 0 2 2))
(MOVE 1 (SPECIAL ANS))
(JUMPN 1 TAG42)
(HLRZ@ 1 (SPECIAL CONCEPT))
(MOVEM 1 (SPECIAL QWORD))
(CALL 1 (E ANSVAR))
(MOVEM 1 (SPECIAL ANS))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG41)
TAG42
TAG46
TAG41 (MOVEI 1 (QUOTE NIL))
(JRST 0 TAG16)
TAG17 (MOVEI 1 (QUOTE NIL))
TAG50
TAG16 (MOVEM 1 0 P)
(MOVE 1 (SPECIAL ANS))
(JUMPE 1 TAG53)
(MOVE 1 0 P)
(JRST 0 TAG10)
TAG53
TAG54 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (CLEARM 1 (SPECIAL CONCEPT))
(MOVE 1 0 P)
TAG10 (SUB P (C 0 0 2 2))
(MOVE 1 (SPECIAL ANS))
(SUB P (C 0 0 3 3))
(JRST 0 SPECSTR)
NIL
(LAP ANSWER2 SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL CONCEPT))
(0 0 (SPECIAL ANS))
(PUSH P 1)
(MOVEI 2 (QUOTE Q))
(MOVE 1 (SPECIAL QWORD))
(CALL 2 (E GET))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG2)
TAG12 (HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL CONCEPT))
(MOVE 2 -2 P)
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG15)
(HLRZ@ 1 (SPECIAL CONCEPT))
(MOVEM 1 (SPECIAL QWORD))
(CALL 1 (E ANSVAR))
(MOVEM 1 (SPECIAL ANS))
(JRST 0 TAG14)
TAG15 (MOVEI 1 (QUOTE NIL))
TAG16
TAG14 (MOVEM 1 0 P)
(MOVE 1 (SPECIAL ANS))
(JUMPE 1 TAG21)
(MOVE 1 0 P)
(JRST 0 TAG6)
TAG21
TAG22 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (CLEARM 1 (SPECIAL CONCEPT))
(MOVE 1 0 P)
TAG6 (SUB P (C 0 0 2 2))
(MOVE 1 (SPECIAL ANS))
(SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP APOLOG SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL STMT))
(MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE APOL))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL STMT))
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG2)
(MOVEI 2 (QUOTE 11))
(MOVE 1 (SPECIAL MISTRUST))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG7)
(MOVEI 1 (QUOTE 0.19999999))
(MOVEM 1 (SPECIAL AJUMP))
(JRST 0 TAG6)
TAG7 (MOVE 1 (SPECIAL ANGER))
(CALL 1 (E SUB1))
(MOVEM 1 (SPECIAL ANGER))
TAG10
TAG6 (MOVEI 1 (QUOTE ACCUSE))
(CALL 1 (E CHOOSE))
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE T))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE NIL))
TAG12
TAG1 (JRST 0 SPECSTR)
NIL
(LAP ASCAN SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL ANS))
(MOVE 2 (SPECIAL LIVEFLARES))
(CALL 2 (E CHECKFLARE))
(JUMPE 1 TAG5)
(MOVEI 2 (QUOTE SET))
(MOVE 1 (SPECIAL FLARE))
(CALL 2 (E GET))
(CALL 1 (E FLMOD))
(JRST 0 TAG4)
TAG5
TAG6
TAG4 (MOVE 2 (SPECIAL ANS))
(MOVEI 1 (QUOTE MAFIA))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG11)
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL DELFLAG))
(MOVEI 1 (QUOTE INIT))
(MOVEM 1 (SPECIAL FLARE))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG10)
TAG11
TAG15
TAG10 (MOVEI 1 (QUOTE NIL))
(JRST 0 SPECSTR)
NIL
(LAP BADINP SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVE 2 0 P)
(MOVEI 1 (QUOTE :))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG5)
(MOVE 1 0 P)
(CALL 1 (E STRINGATE))
(CALL 1 (E PRINTSTR))
(MOVEI 1 (QUOTE T))
(JRST 0 TAG1)
TAG5
TAG6 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP BLANKSKIP SUBR)
(PUSH P 1)
(JUMPE 1 TAG1)
(HLRZ@ 1 1)
(CAMN 1 (SPECIAL BLANK))
(JRST 0 TAG3)
(HLRZ@ 1 0 P)
(CAMN 1 (SPECIAL CR))
(JRST 0 TAG3)
(HLRZ@ 1 0 P)
(CAME 1 (SPECIAL LF))
(JRST 0 TAG2)
TAG3 (HRRZ@ 1 0 P)
(CALL 1 (E BLANKSKIP))
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
TAG4
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP CHOOSE SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL REPLY))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E ATOM))
(JUMPN 1 TAG5)
(HRRZ@ 1 -2 P)
(MOVEM 1 -1 P)
(HLRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG4)
TAG5 (MOVEI 1 (QUOTE IND))
(MOVEM 1 -1 P)
TAG11
TAG4 (MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E GET))
(MOVEM 1 0 P)
(JUMPN 1 TAG14)
(MOVE 1 -2 P)
(CAIE 1 (QUOTE EXHAUST))
(JRST 0 TAG16)
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL ENDE))
(MOVEI 1 (QUOTE ((FED UP))))
(JRST 0 TAG15)
TAG16 (CLEARM 1 (SPECIAL CONCEPT))
(MOVEI 1 (QUOTE EXHAUST))
(CALL 1 (E CHOOSE))
TAG17
TAG15 (JRST 0 TAG1)
TAG14
TAG21 (HLRZ@ 1 0 P)
(MOVEM 1 (SPECIAL REPLY))
(MOVE 3 -1 P)
(HRRZ@ 2 0 P)
(MOVE 1 -2 P)
(CALL 3 (E PUTPROP))
(MOVE 1 (SPECIAL REPLY))
TAG1 (SUB P (C 0 0 3 3))
(JRST 0 SPECSTR)
NIL
(LAP CHOOSEDEL SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL REPLY))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E NUMBERP))
(JUMPE 1 TAG5)
(MOVE 2 -3 P)
(MOVEI 1 (QUOTE DEL))
(CALL 2 (E CAT))
(CALL 1 (E AT))
(MOVEM 1 0 P)
(JRST 0 TAG4)
TAG5 (MOVE 1 -3 P)
(MOVEM 1 0 P)
TAG6
TAG4 (MOVEI 2 (QUOTE FREQ))
(MOVE 1 0 P)
(CALL 2 (E GET))
(MOVEI 2 (QUOTE 3))
(MOVEM 1 -2 P)
(CALL 2 (E *LESS))
(JUMPE 1 TAG11)
(MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEI 3 (QUOTE FREQ))
(MOVE 2 1)
(MOVEM 1 -1 P)
(MOVE 1 0 P)
(CALL 3 (E PUTPROP))
(MOVE 2 0 P)
(MOVEI 1 (QUOTE DELUSIONS))
(CALL 2 (E GET))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(MOVEI 2 (QUOTE 1))
(MOVE 1 -4 P)
(CALL 2 (E EQUAL))
(JUMPN 1 TAG17)
(MOVEI 2 (QUOTE 4))
(MOVE 1 -4 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG16)
TAG17 (MOVEI 2 (QUOTE FREQ))
(MOVE 1 -1 P)
(CALL 2 (E GET))
(EXCH 2 1)
(MOVEI 1 (QUOTE PREFACE))
(CALL 2 (E GET))
(MOVE 2 0 P)
(CALL 2 (E *APPEND))
(JRST 0 TAG15)
TAG16 (MOVE 1 0 P)
TAG20
TAG15 (SUB P (C 0 0 1 1))
(JRST 0 TAG10)
TAG11 (CLEARM 1 (SPECIAL DELFLAG))
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL DELEND))
(MOVEI 1 (QUOTE (LET'S TALK ABOUT SOMETHING ELSE- I'VE GIVEN YOU SOME IDEA OF WHAT'S GOING ON)))
TAG22
TAG10 (MOVEM 1 (SPECIAL REPLY))
(SUB P (C 0 0 4 4))
(JRST 0 SPECSTR)
NIL
(LAP DELCHECK SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL INP))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 1)
(MOVE 1 (SPECIAL DELNLIST))
(CALL 2 (E MEMBER1))
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(MOVE 2 (SPECIAL DELNLIST))
(CALL 2 (E DELETE))
(MOVEM 1 (SPECIAL DELNLIST))
(JRST 0 TAG4)
TAG5 (MOVE 2 (SPECIAL INP))
(MOVE 1 (SPECIAL DELVLIST))
(CALL 2 (E MEMBER1))
(MOVEM 1 0 P)
(JUMPE 1 TAG6)
(MOVE 2 (SPECIAL DELVLIST))
(CALL 2 (E DELETE))
(MOVEM 1 (SPECIAL DELVLIST))
(JRST 0 TAG4)
TAG6 (MOVEI 2 (QUOTE 12))
(MOVE 1 (SPECIAL MISTRUST))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG7)
(MOVE 2 (SPECIAL INP))
(MOVE 1 (SPECIAL DELALIST))
(CALL 2 (E MEMBER1))
(MOVEM 1 0 P)
(JUMPE 1 TAG7)
(MOVE 2 (SPECIAL DELALIST))
(MOVE 1 0 P)
(CALL 2 (E DELETE))
(MOVEM 1 (SPECIAL DELALIST))
(JRST 0 TAG4)
TAG7
TAG11
TAG4 (MOVE 1 0 P)
(JUMPE 1 TAG14)
(CALL 1 (E ATOM))
(JUMPE 1 TAG14)
(MOVE 1 0 P)
(CALL 1 (E NCONS))
(JRST 0 TAG13)
TAG14 (MOVE 1 0 P)
TAG16
TAG13 (SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP DELETE SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 2)
(JUMPE 1 TAG1)
(HLRZ@ 1 1)
(CAME 1 -1 P)
(JRST 0 TAG2)
(HRRZ@ 1 2)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(HRRZ@ 2 0 P)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 2 (E DELETE))
(POP P 2)
(CALL 2 (E XCONS))
TAG3
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP DISTRUST SUBR)
(MOVEI 2 (QUOTE 12))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *GREAT))
(JUMPN 1 TAG3)
(MOVEI 2 (QUOTE 12))
(MOVE 1 (SPECIAL ANGER))
(CALL 2 (E *GREAT))
(JUMPN 1 TAG3)
(MOVE 2 (SPECIAL ANGER))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *PLUS))
(MOVEI 2 (QUOTE 16))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG2)
TAG3 (MOVEI 1 (QUOTE TURNOFF))
(CALL 1 (E CHOOSE))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE ALOOF))
(CALL 1 (E CHOOSE))
TAG4
TAG1 (POPJ P)
NIL
(LAP FIXPTRS SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL CONCEPT))
(PUSH P 1)
(MOVE 2 (SPECIAL DEADFLARES))
(MOVE 1 (SPECIAL LIVEFLARES))
(CALL 2 (E *APPEND))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG2)
TAG12 (HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL CONCEPT))
(MOVEI 2 (QUOTE NEXT))
(CALL 2 (E GET))
(CAME 1 -2 P)
(JRST 0 TAG15)
(MOVE 1 -2 P)
(CALL 2 (E GET))
(MOVE 3 2)
(EXCH 2 1)
(MOVE 1 (SPECIAL CONCEPT))
(CALL 3 (E PUTPROP))
(JRST 0 TAG14)
TAG15 (MOVEI 1 (QUOTE NIL))
TAG16
TAG14 (MOVEM 1 0 P)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (CLEARM 1 (SPECIAL CONCEPT))
(MOVE 1 0 P)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 3 3))
(JRST 0 SPECSTR)
NIL
(LAP FLRECORD SUBR)
(PUSH P 1)
(CALL 1 (E FLMOD))
(MOVEI 2 (QUOTE 40.0))
(MOVE 1 (SPECIAL WEIGHT))
(CALL 2 (E *QUO))
(MOVEM 1 (SPECIAL FJUMP))
(MOVEI 1 (QUOTE INTROTOP))
(MOVEM 1 (SPECIAL QWORD))
(MOVEM 1 (SPECIAL LASTTOP))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP FLMOD SUBR)
(PUSH P 1)
(MOVE 2 (SPECIAL LIVEFLARES))
(CALL 2 (E DELETE))
(MOVEM 1 (SPECIAL LIVEFLARES))
(MOVE 2 (SPECIAL DEADFLARES))
(MOVE 1 0 P)
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL DEADFLARES))
(MOVE 1 0 P)
(CALL 1 (E FIXPTRS))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP FLARELEAD SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE TYPE))
(CALL 2 (E GET))
(CAIE 1 (QUOTE INSTITUTION))
(JRST 0 TAG5)
(MOVEI 1 (QUOTE NEXTFL))
(CALL 1 (E CHOOSE))
(MOVEI 2 (QUOTE WORDS))
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 2 (E GET))
(HLRZ@ 1 1)
(CALL 1 (E NCONS))
(MOVE 2 1)
(MOVEI 1 (QUOTE (THE)))
(CALL 2 (E *APPEND))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *APPEND))
(JRST 0 TAG1)
TAG5 (MOVEI 1 (QUOTE NEXTFL))
(CALL 1 (E CHOOSE))
(PUSH P 1)
(MOVE 1 (SPECIAL FLARE))
(CALL 1 (E EXPLODE))
(CALL 1 (E LAST))
(HLRZ@ 2 1)
(CAIE 2 (QUOTE S))
(JRST 0 TAG11)
(MOVE 1 (SPECIAL FLARE))
(CALL 1 (E NCONS))
(MOVE 2 1)
(JRST 0 TAG10)
TAG11 (MOVEI 2 (QUOTE WORDS))
(MOVE 1 -1 P)
(CALL 2 (E GET))
(HLRZ@ 1 1)
(CALL 1 (E NCONS))
(MOVE 2 1)
TAG12
TAG10 (POP P 1)
(CALL 2 (E *APPEND))
(JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP FLSTMT SUBR)
(PUSH P 1)
(CAIE 1 (QUOTE MAFIASET))
(JRST 0 TAG2)
(MOVE 1 (SPECIAL DELEND))
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL DELFLAG))
(CALL 0 (E DELSTMT))
(JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE NREF))
(MOVE 1 0 P)
(CALL 2 (E GET))
(MOVEM 1 (SPECIAL NREF))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *LESS))
(JUMPE 1 TAG4)
(MOVE 1 (SPECIAL NREF))
(CALL 1 (E ADD1))
(MOVEM 1 (SPECIAL NREF))
(MOVEI 3 (QUOTE NREF))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 3 (E PUTPROP))
(MOVEI 2 (QUOTE STMTS))
(MOVE 1 0 P)
(CALL 2 (E GET))
(PUSH P 1)
(MOVE 1 (SPECIAL NREF))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SUFLIST))
(HLRZ@ 1 1)
(JRST 0 TAG1)
TAG4 (MOVEI 2 (QUOTE NEXT))
(MOVE 1 0 P)
(CALL 2 (E GET))
(CALL 1 (E LEADON))
TAG10
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP JOIN SUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CALL 1 (E EXPLODEC))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E JOIN1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *APPEND))
(SUB P (C 0 0 1 1))
(JCALL 1 (E READLIST))
NIL
(LAP JOIN1 SUBR)
(PUSH P 1)
(JUMPE 1 TAG1)
(HLRZ@ 1 0 P)
(PUSH P (SPECIAL DASH))
(CALL 1 (E EXPLODEC))
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 1 (E JOIN1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *APPEND))
(POP P 2)
(CALL 2 (E XCONS))
TAG2
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP LEADON SUBR)
(PUSH P 1)
(CAIN 1 (QUOTE MAFIASET))
(JRST 0 TAG5)
(CALL 1 (E FLMOD))
(MOVEI 2 (QUOTE WORDS))
(MOVE 1 0 P)
(CALL 2 (E GET))
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL FLARE))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG4)
TAG5 (MOVE 1 (SPECIAL DELEND))
(JUMPE 1 TAG11)
(MOVEI 1 (QUOTE INIT))
(MOVEM 1 (SPECIAL FLARE))
(MOVEI 1 (QUOTE FEELER))
(CALL 1 (E CHOOSE))
(JRST 0 TAG1)
TAG11 (MOVE 1 (SPECIAL WEAK))
(JUMPN 1 TAG13)
(MOVEI 2 (QUOTE 14))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *GREAT))
(JUMPN 1 TAG13)
(MOVEI 2 (QUOTE 14))
(MOVE 1 (SPECIAL ANGER))
(CALL 2 (E *GREAT))
(JUMPN 1 TAG13)
(MOVE 2 (SPECIAL ANGER))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *PLUS))
(MOVE 2 (SPECIAL MISTRUST))
(CALL 2 (E *PLUS))
(MOVEI 2 (QUOTE 24))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG12)
TAG13 (MOVEI 1 (QUOTE CHANGESUBJ))
(CALL 1 (E CHOOSE))
(JRST 0 TAG1)
TAG12 (MOVE 2 (SPECIAL DELNLIST))
(MOVEI 1 (QUOTE MAFIA))
(CALL 2 (E DELETE))
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL DELFLAG))
(MOVEI 1 (QUOTE INIT))
(MOVEM 1 (SPECIAL FLARE))
(MOVEI 1 (QUOTE NIL))
TAG14
TAG4 (MOVE 1 0 P)
(CALL 1 (E FLARELEAD))
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP GFUN1MEMBER1 SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL X))
(MOVE 2 (SPECIAL INP))
(CALL 2 (E MEMBER))
(JRST 0 SPECSTR)
NIL
(LAP MEMBER1 SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL INP))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG2)
TAG12 (HLRZ@ 1 -1 P)
(MOVEM 1 -3 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG15)
(MOVE 2 (SPECIAL INP))
(MOVE 1 -3 P)
(CALL 2 (E MEMBER))
(JRST 0 TAG14)
TAG15 (MOVE 2 -3 P)
(MOVEI 1 (QUOTE GFUN1MEMBER1))
(CALL 2 (E MAPCAR))
(CALL 17 (E AND))
TAG16
TAG14 (MOVEM 1 -2 P)
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG21)
(MOVE 1 0 P)
(JRST 0 TAG6)
TAG21
TAG22 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (CLEARM 1 -3 P)
(MOVE 1 0 P)
TAG6 (SUB P (C 0 0 2 2))
(MOVE 1 0 P)
(JUMPE 1 TAG25)
(MOVE 1 -1 P)
(JRST 0 TAG3)
TAG25
TAG26 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 0 0 3 3))
(JRST 0 SPECSTR)
NIL
(LAP MISCQ SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL QWORD))
(0 0 (SPECIAL ANS))
(0 0 (SPECIAL CONCEPT))
(PUSH P 1)
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 3))
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E SUFLIST))
(MOVEI 2 (QUOTE (HOW ARE YOU)))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG11)
(MOVEI 1 (QUOTE (ALL RIGHT)))
(MOVEM 1 (SPECIAL ANS))
(JRST 0 TAG10)
TAG11 (MOVE 1 (SPECIAL INTERPERS))
(JUMPE 1 TAG12)
(CLEARM 1 (SPECIAL INTERPERS))
(MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE QLIST))
(CALL 2 (E GET))
(MOVE 2 0 P)
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG14)
(MOVEI 1 (QUOTE WFEEL))
(CALL 1 (E CHOOSE))
(JRST 0 TAG13)
TAG14 (MOVEI 1 (QUOTE QFEEL))
(CALL 1 (E CHOOSE))
TAG15
TAG13 (JRST 0 TAG5)
TAG12 (MOVE 1 0 P)
(CALL 1 (E OBJQ))
(MOVEM 1 (SPECIAL ANS))
(JUMPN 1 TAG17)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE HOW))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG21)
(PUSH P (C 0 0 (QUOTE (MANY MUCH LONG OFTEN)) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG2)
TAG26 (HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL CONCEPT))
(MOVE 2 -2 P)
(CALL 2 (E MEMBER))
(JUMPE 1 TAG31)
(MOVE 1 (SPECIAL CONCEPT))
(CALL 1 (E CHOOSE))
(MOVEM 1 (SPECIAL ANS))
(JRST 0 TAG30)
TAG31 (MOVEI 1 (QUOTE NIL))
TAG32
TAG30 (MOVEM 1 0 P)
(MOVE 1 (SPECIAL ANS))
(JUMPE 1 TAG35)
(MOVE 1 0 P)
(JRST 0 TAG22)
TAG35
TAG36 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (CLEARM 1 (SPECIAL CONCEPT))
(MOVE 1 0 P)
TAG22 (SUB P (C 0 0 2 2))
(JRST 0 TAG20)
TAG21
TAG40
TAG20 (JRST 0 TAG10)
TAG17
TAG42
TAG10 (MOVE 1 (SPECIAL ANS))
(JUMPE 1 TAG45)
(JRST 0 TAG5)
TAG45 (MOVE 1 (SPECIAL FLARE))
(CAIN 1 (QUOTE INIT))
(JRST 0 TAG46)
(MOVEI 2 (QUOTE SET))
(CALL 2 (E GET))
(CALL 1 (E FLSTMT))
(JRST 0 TAG5)
TAG46 (MOVE 1 (SPECIAL DELFLAG))
(JUMPE 1 TAG47)
(CALL 0 (E DELSTMT))
(JRST 0 TAG5)
TAG47 (MOVE 2 0 P)
(MOVEI 1 (QUOTE WHY))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG50)
(MOVEI 1 (QUOTE WHY))
(CALL 1 (E CHOOSE))
(MOVEM 1 (SPECIAL ANS))
(JRST 0 TAG44)
TAG50 (MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE QLIST))
(CALL 2 (E GET))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG3 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
TAG57 (HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL QWORD))
(MOVE 2 -2 P)
(CALL 2 (E MEMBER))
(JUMPE 1 TAG62)
(MOVEI 1 (QUOTE UNKNOWN))
(CALL 1 (E CHOOSE))
(JRST 0 TAG61)
TAG62 (MOVEI 1 (QUOTE NIL))
TAG63
TAG61 (MOVEM 1 (SPECIAL ANS))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL ANS))
(JUMPE 1 TAG66)
(MOVE 1 0 P)
(JRST 0 TAG53)
TAG66
TAG67 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG3)
TAG4 (CLEARM 1 (SPECIAL QWORD))
(MOVE 1 0 P)
TAG53 (SUB P (C 0 0 2 2))
TAG51
TAG44 (MOVE 1 (SPECIAL ANS))
(JUMPE 1 TAG72)
(JRST 0 TAG5)
TAG72 (MOVE 2 0 P)
(MOVEI 1 (QUOTE TELL))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG73)
(MOVEI 1 (QUOTE (I DON'T KNOW ANYTHING ABOUT THAT)))
(JRST 0 TAG5)
TAG73 (MOVEI 1 (QUOTE QREPLIES))
(CALL 1 (E CHOOSE))
(JRST 0 TAG5)
TAG74 (MOVEI 1 (QUOTE NIL))
TAG5 (SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP MISCS SUBR)
(PUSH P 1)
(MOVE 2 1)
(MOVEI 1 (QUOTE JUMP))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE ((EXITS))))
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CAIN 1 (QUOTE HI))
(JRST 0 TAG4)
(HLRZ@ 1 0 P)
(CAIN 1 (QUOTE HELLO))
(JRST 0 TAG4)
(HLRZ@ 1 0 P)
(CAIN 1 (QUOTE HOWDY))
(JRST 0 TAG4)
(MOVEI 2 (QUOTE (MORNING AFTERNOON EVENING)))
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 2 (E MEMBER))
(JUMPE 1 TAG3)
TAG4 (MOVEI 1 (QUOTE (HELLO)))
(JRST 0 TAG1)
TAG3 (MOVE 2 0 P)
(MOVEI 1 (QUOTE AM))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG7)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE DOCTOR))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG6)
TAG7 (MOVE 2 0 P)
(MOVEI 1 (QUOTE DR))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG6)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE MY))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG5)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE NAME))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG5)
TAG6 (MOVEI 1 (QUOTE (GLAD TO MEET YOU)))
(JRST 0 TAG1)
TAG5 (MOVE 2 0 P)
(MOVEI 1 (QUOTE ALREADY))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG13)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE BEFORE))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG11)
TAG13 (MOVE 2 0 P)
(MOVEI 1 (QUOTE SAID))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG14)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE MENTIONED))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG11)
TAG14 (MOVEI 1 (QUOTE (I GUESS I DID)))
(JRST 0 TAG1)
TAG11 (MOVE 1 (SPECIAL FLARE))
(CAIN 1 (QUOTE INIT))
(JRST 0 TAG15)
(MOVEI 2 (QUOTE SET))
(CALL 2 (E GET))
(CALL 1 (E FLSTMT))
(JRST 0 TAG1)
TAG15 (MOVE 1 (SPECIAL DELFLAG))
(JUMPE 1 TAG16)
(CALL 0 (E DELSTMT))
(JRST 0 TAG1)
TAG16 (MOVEI 1 (QUOTE SREPLIES))
(CALL 1 (E CHOOSE))
TAG17
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP MODIFVAR SUBR)
(CALL 0 (E RAISE))
(MOVE 1 (SPECIAL ANGER0))
(PUSH P (SPECIAL ANGER))
(CALL 1 (E ADD1))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPE 1 TAG5)
(MOVE 1 (SPECIAL ANGER))
(CALL 1 (E SUB1))
(JRST 0 TAG4)
TAG5 (MOVE 1 (SPECIAL ANGER0))
TAG6
TAG4 (MOVEM 1 (SPECIAL ANGER))
(MOVE 1 (SPECIAL DELFLAG))
(JUMPE 1 TAG11)
(MOVEI 2 (QUOTE 5.1000000))
(MOVE 1 (SPECIAL FEAR0))
(PUSH P (SPECIAL FEAR))
(CALL 2 (E *PLUS))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPE 1 TAG13)
(MOVEI 2 (QUOTE 0.09999999))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *DIF))
(JRST 0 TAG12)
TAG13 (MOVEI 2 (QUOTE 5))
(MOVE 1 (SPECIAL FEAR0))
(CALL 2 (E *PLUS))
TAG14
TAG12 (MOVEM 1 (SPECIAL FEAR))
(JRST 0 TAG10)
TAG11 (MOVE 1 (SPECIAL FLARE))
(CAIN 1 (QUOTE INIT))
(JRST 0 TAG16)
(MOVEI 2 (QUOTE 3.1999999))
(MOVE 1 (SPECIAL FEAR0))
(PUSH P (SPECIAL FEAR))
(CALL 2 (E *PLUS))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPE 1 TAG20)
(MOVEI 2 (QUOTE 0.19999999))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *DIF))
(JRST 0 TAG17)
TAG20 (MOVEI 2 (QUOTE 3))
(MOVE 1 (SPECIAL FEAR0))
(CALL 2 (E *PLUS))
TAG21
TAG17 (MOVEM 1 (SPECIAL FEAR))
(JRST 0 TAG10)
TAG16 (MOVEI 2 (QUOTE 0.30000000))
(MOVE 1 (SPECIAL FEAR0))
(PUSH P (SPECIAL FEAR))
(CALL 2 (E *PLUS))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPE 1 TAG26)
(MOVEI 2 (QUOTE 0.30000000))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *DIF))
(JRST 0 TAG25)
TAG26 (MOVE 1 (SPECIAL FEAR0))
TAG27
TAG25 (MOVEM 1 (SPECIAL FEAR))
TAG23
TAG10 (MOVEI 2 (QUOTE 0.5E-1))
(MOVE 1 (SPECIAL MISTRUST0))
(PUSH P (SPECIAL MISTRUST))
(CALL 2 (E *PLUS))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPE 1 TAG32)
(MOVEI 2 (QUOTE 0.5E-1))
(MOVE 1 (SPECIAL MISTRUST))
(CALL 2 (E *DIF))
(JRST 0 TAG31)
TAG32 (MOVE 1 (SPECIAL MISTRUST0))
TAG33
TAG31 (MOVEM 1 (SPECIAL MISTRUST))
(MOVE 1 (SPECIAL TRACEV))
(JUMPE 1 TAG36)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVE 2 (SPECIAL FEAR))
(MOVEI 1 (QUOTE " FEAR = "))
(CALL 2 (E CAT))
(CALL 1 (E PRINTSTR))
(MOVE 2 (SPECIAL ANGER))
(MOVEI 1 (QUOTE " ANGER = "))
(CALL 2 (E CAT))
(CALL 1 (E PRINTSTR))
(MOVE 2 (SPECIAL MISTRUST))
(MOVEI 1 (QUOTE " MISTRUST = "))
(CALL 2 (E CAT))
(CALL 1 (E PRINTSTR))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG35)
TAG36
TAG42
TAG35 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E TERPRI))
(MOVEI 1 (QUOTE NIL))
(POPJ P)
NIL
(LAP NULLSKIP SUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL CHAR))
(CAMN 1 (SPECIAL BLANK))
(JRST 0 TAG3)
(CAMN 1 (SPECIAL CR))
(JRST 0 TAG3)
(CAMN 1 (SPECIAL LF))
(JRST 0 TAG3)
(CAMN 1 (SPECIAL COMMA))
(JRST 0 TAG3)
(CAME 1 (SPECIAL DASH))
(JRST 0 TAG2)
TAG3 (HRRZ@ 1 0 P)
(CALL 1 (E NULLSKIP))
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
TAG4
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP OBJQ SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 1)
(MOVEI 1 (QUOTE WHAT))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG11)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE WHO))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG11)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE WHICH))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG7)
TAG11 (MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE OBJDATA))
(CALL 2 (E GET))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG2)
TAG16 (HLRZ@ 1 -1 P)
(MOVEM 1 -2 P)
(HLRZ@ 1 1)
(CALL 1 (E NCONS))
(MOVE 2 -4 P)
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG21)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(JRST 0 TAG20)
TAG21 (MOVEI 1 (QUOTE NIL))
TAG22
TAG20 (MOVEM 1 -3 P)
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(JUMPE 1 TAG25)
(MOVE 1 0 P)
(JRST 0 TAG12)
TAG25
TAG26 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (CLEARM 1 -2 P)
(MOVE 1 0 P)
TAG12 (SUB P (C 0 0 2 2))
(JUMPE 1 TAG7)
(MOVE 1 -1 P)
(JRST 0 TAG3)
TAG7
TAG30 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP PROMPT SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL INP))
(MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE DISCUSS))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL INP))
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG2)
(MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE SELF))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL INP))
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG2)
(JSP 6 SPECBIND)
(0 0 (SPECIAL ANS))
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE TELL))
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL INP))
(MOVEI 2 (QUOTE Q))
(MOVEI 1 (QUOTE INTROTOP))
(CALL 2 (E GET))
(EXCH 2 1)
(MOVE 1 (SPECIAL INP))
(CALL 2 (E ANSWER1))
(MOVEM 1 (SPECIAL ANS))
(CALL 1 (E SAY))
(MOVE 2 (SPECIAL INP))
(MOVE 1 (SPECIAL ANS))
(CALL 2 (E ASCAN))
(MOVEI 1 (QUOTE NIL))
(PUSHJ P SPECSTR)
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL INP))
(CALL 1 (E ANSWER))
(CALL 1 (E SAY))
TAG7
TAG1 (JRST 0 SPECSTR)
NIL
(LAP QTHREAT SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL STMT))
(HLRZ@ 1 1)
(CAIE 1 (QUOTE Q))
(JRST 0 TAG2)
(MOVEI 1 (QUOTE THREATQ))
(CALL 1 (E CHOOSE))
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE T))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE NIL))
TAG3
TAG1 (JRST 0 SPECSTR)
NIL
(LAP RAISE SUBR)
(MOVE 1 (SPECIAL FJUMP))
(JUMPE 1 TAG5)
(MOVE 1 (SPECIAL WEAK))
(JUMPE 1 TAG12)
(MOVE 2 (SPECIAL FJUMP))
(MOVEI 1 (QUOTE 0.30000000))
(CALL 2 (E *TIMES))
(MOVEM 1 (SPECIAL FJUMP))
(JRST 0 TAG11)
TAG12
TAG13
TAG11 (MOVE 2 (SPECIAL FEAR))
(MOVEI 1 (QUOTE 24))
(PUSH P (SPECIAL FJUMP))
(PUSH P 2)
(CALL 2 (E *DIF))
(MOVE 2 -1 P)
(CALL 2 (E *TIMES))
(POP P 2)
(CALL 2 (E *PLUS))
(MOVEM 1 (SPECIAL FEAR))
(SUB P (C 0 0 1 1))
(MOVE 2 (SPECIAL FJUMP))
(MOVEI 1 (QUOTE 0.5))
(PUSH P (SPECIAL MISTRUST))
(CALL 2 (E *TIMES))
(MOVE 2 (SPECIAL MISTRUST))
(PUSH P 1)
(MOVEI 1 (QUOTE 24))
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *TIMES))
(POP P 2)
(CALL 2 (E *PLUS))
(MOVEM 1 (SPECIAL MISTRUST))
(MOVE 2 (SPECIAL FJUMP))
(MOVEI 1 (QUOTE 0.09999999))
(PUSH P (SPECIAL MISTRUST0))
(CALL 2 (E *TIMES))
(MOVE 2 (SPECIAL MISTRUST0))
(PUSH P 1)
(MOVEI 1 (QUOTE 24))
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *TIMES))
(POP P 2)
(CALL 2 (E *PLUS))
(MOVEM 1 (SPECIAL MISTRUST0))
(CLEARM 1 (SPECIAL FJUMP))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG4)
TAG5
TAG15
TAG4 (MOVE 1 (SPECIAL AJUMP))
(JUMPE 1 TAG20)
(MOVE 1 (SPECIAL WEAK))
(JUMPE 1 TAG25)
(MOVE 2 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE 0.69999999))
(CALL 2 (E *TIMES))
(MOVEM 1 (SPECIAL AJUMP))
(JRST 0 TAG24)
TAG25
TAG26
TAG24 (MOVE 2 (SPECIAL ANGER))
(MOVEI 1 (QUOTE 24))
(PUSH P (SPECIAL AJUMP))
(PUSH P 2)
(CALL 2 (E *DIF))
(MOVE 2 -1 P)
(CALL 2 (E *TIMES))
(POP P 2)
(CALL 2 (E *PLUS))
(MOVEM 1 (SPECIAL ANGER))
(SUB P (C 0 0 1 1))
(MOVE 2 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE 0.5))
(PUSH P (SPECIAL MISTRUST))
(CALL 2 (E *TIMES))
(MOVE 2 (SPECIAL MISTRUST))
(PUSH P 1)
(MOVEI 1 (QUOTE 24))
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *TIMES))
(POP P 2)
(CALL 2 (E *PLUS))
(MOVEM 1 (SPECIAL MISTRUST))
(MOVE 2 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE 0.09999999))
(PUSH P (SPECIAL MISTRUST0))
(CALL 2 (E *TIMES))
(MOVE 2 (SPECIAL MISTRUST0))
(PUSH P 1)
(MOVEI 1 (QUOTE 24))
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *TIMES))
(POP P 2)
(CALL 2 (E *PLUS))
(MOVEM 1 (SPECIAL MISTRUST0))
(CLEARM 1 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG17)
TAG20
TAG30
TAG17 (MOVEI 1 (QUOTE NIL))
(POPJ P)
NIL
(LAP READSENT SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL CHAR))
(PUSH P 1)
(CLEARM 1 (SPECIAL TERMIN))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL CHAR))
(MOVEI 2 (QUOTE LET))
(CALL 2 (E GET))
(JUMPN 1 TAG11)
(MOVE 1 (SPECIAL CHAR))
(CALL 1 (E NUMBERP))
(JUMPN 1 TAG11)
(MOVE 1 -1 P)
(JUMPE 1 TAG11)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(MOVEM 1 0 P)
(JRST 0 TAG10)
TAG11 (MOVE 1 0 P)
(JRST 0 TAG5)
TAG13
TAG10 (JRST 0 TAG1)
TAG5 (SUB P (C 0 0 1 1))
(MOVE 1 0 P)
(JUMPN 1 TAG16)
(MOVEI 1 (QUOTE ILL))
(MOVEM 1 (SPECIAL TERMIN))
(JRST 0 TAG15)
TAG16 (MOVE 1 0 P)
(CALL 1 (E BLANKSKIP))
(CALL 1 (E SCANWD))
(CALL 1 (E READSENT1))
(JRST 0 TAG2)
TAG17
TAG15 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP READSENT1 SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL WORD))
(MOVE 1 (SPECIAL TERMIN))
(JUMPE 1 TAG2)
(CLEARM 1 (SPECIAL RESTSENT))
(CAIE 1 (QUOTE ILL))
(JRST 0 TAG4)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG3)
TAG4 (MOVE 1 (SPECIAL WORD))
(JUMPE 1 TAG3)
(MOVE 1 (SPECIAL WORD))
(CALL 1 (E READLIST))
(CALL 1 (E NCONS))
TAG5
TAG3 (JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL WORD))
(CALL 1 (E READLIST))
(PUSH P 1)
(MOVE 1 (SPECIAL RESTSENT))
(CALL 1 (E SCANWD))
(CALL 1 (E READSENT1))
(POP P 2)
(CALL 2 (E XCONS))
TAG7
TAG1 (JRST 0 SPECSTR)
NIL
(LAP RTPAR SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG2)
TAG12 (MOVE 1 -2 P)
(MOVEM 1 -3 P)
(MOVEI 3 (QUOTE 1))
(MOVE 2 1)
(MOVE 1 -5 P)
(CALL 3 (E SUBSTR))
(MOVEI 2 (QUOTE ")"))
(CALL 2 (E SEQ))
(JUMPE 1 TAG15)
(MOVE 1 0 P)
(JRST 0 TAG6)
TAG15
TAG16 (MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG2 (CLEARM 1 -3 P)
(MOVE 1 0 P)
TAG6 (SUB P (C 0 0 3 3))
(MOVE 1 0 P)
(CALL 1 (E ADD1))
(MOVEI 3 (QUOTE ALL))
(MOVE 2 1)
(MOVE 1 -2 P)
(SUB P (C 0 0 3 3))
(JCALL 3 (E SUBSTR))
NIL
(LAP SAY SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL STMT))
(CALL 1 (E STRINGATE))
(MOVEM 1 (SPECIAL STMT))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL SUPPRESS))
(JUMPN 1 TAG7)
(MOVE 1 (SPECIAL TALK))
(JUMPE 1 TAG5)
TAG7 (MOVE 1 (SPECIAL STMT))
(CALL 1 (E EXPLODEC))
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(CAIE 2 (QUOTE /())
(JRST 0 TAG5)
(MOVE 1 0 P)
(CALL 1 (E LENGTH))
(MOVE 2 1)
(MOVE 1 (SPECIAL STMT))
(CALL 2 (E RTPAR))
(MOVEM 1 (SPECIAL STMT))
(JRST 0 TAG4)
TAG5
TAG10
TAG4 (MOVEI 1 (QUOTE (OWN (PRINTSTR STMT))))
(CALL 17 (E OUT))
(MOVE 1 (SPECIAL TALK))
(JUMPE 1 TAG13)
(JSP 6 SPECBIND)
(0 0 (SPECIAL VALUES))
(MOVEI 1 (QUOTE (FILE1 (PRINTSTR STMT))))
(CALL 17 (E OUT))
(MOVE 1 (SPECIAL STMT))
(CALL 1 (E AT))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE QUOTE))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE PRINTSTR))
(CALL 2 (E XCONS))
(PUSH P 1)
(MOVEI 1 (QUOTE (RETURN (LIST (QUOTE RESPONSE) X (QUOTE PATIENT) (TERPRI (TERPRI (READ)))))))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (CLEAR_BUFFER)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (PRINT (QUOTE PATIENT:))))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (SETQ X (READ))))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (CLEAR_BUFFER)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (PRINT (QUOTE RESPONSE:))))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (X)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE PROG))
(CALL 2 (E XCONS))
(PUSH P 1)
(MOVEI 1 (QUOTE T))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE DOC))
(CALL 2 (E XCONS))
(CALL 17 (E INP))
(MOVEM 1 (SPECIAL VALUES))
(MOVEI 1 (QUOTE (FILE1 (PROG2 (PRINT VALUES) (PRINC (TERPRI EOF))) NIL T)))
(CALL 17 (E OUT))
(MOVEI 2 (QUOTE SAV))
(MOVEI 1 (QUOTE HAR000))
(CALL 2 (E SAVEJOB))
(MOVE 1 (SPECIAL FILE1))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL FILE2))
(CALL 2 (E XCONS))
(MOVE 2 1)
(MOVEI 1 (QUOTE (FILE1 FILE2)))
(CALL 2 (E &DECOMPOSE))
(MOVEI 1 (QUOTE (FILE1 (PRINT_ALL FILE2) T)))
(CALL 17 (E OUT))
(MOVEI 1 (QUOTE NIL))
(PUSHJ P SPECSTR)
(JRST 0 TAG12)
TAG13 (MOVE 1 (SPECIAL SAVE_FILE))
(JUMPE 1 TAG17)
(MOVEI 1 (QUOTE (FILE1 (PRINTSTR STMT))))
(CALL 17 (E OUT))
(MOVEI 1 (QUOTE (FILE1 (PRINC (TERPRI EOF)) NIL T)))
(CALL 17 (E OUT))
(MOVE 1 (SPECIAL FILE1))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL FILE2))
(CALL 2 (E XCONS))
(MOVE 2 1)
(MOVEI 1 (QUOTE (FILE1 FILE2)))
(CALL 2 (E &DECOMPOSE))
(MOVEI 1 (QUOTE (FILE1 (PRINT_ALL FILE2) T)))
(CALL 17 (E OUT))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG12)
TAG17
TAG23
TAG12 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP SCANWD SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL CHAR))
(PUSH P 1)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL CHAR))
(CAMN 1 (SPECIAL PERIOD))
(JRST 0 TAG6)
(CAIE 1 (QUOTE ?))
(JRST 0 TAG5)
TAG6 (HRRZ@ 1 0 P)
(CALL 1 (E BLANKSKIP))
(JUMPN 1 TAG10)
(MOVE 1 (SPECIAL CHAR))
(JRST 0 TAG7)
TAG10 (MOVEI 1 (QUOTE ILL))
TAG11
TAG7 (MOVEM 1 (SPECIAL TERMIN))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG4)
TAG5 (CAMN 1 (SPECIAL BLANK))
(JRST 0 TAG14)
(CAMN 1 (SPECIAL CR))
(JRST 0 TAG14)
(CAMN 1 (SPECIAL COMMA))
(JRST 0 TAG14)
(CAME 1 (SPECIAL DASH))
(JRST 0 TAG13)
TAG14 (MOVE 1 0 P)
(CALL 1 (E NULLSKIP))
(MOVEM 1 (SPECIAL RESTSENT))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG4)
TAG13 (CALL 1 (E NUMBERP))
(JUMPN 1 TAG16)
(MOVEI 2 (QUOTE LET))
(MOVE 1 (SPECIAL CHAR))
(CALL 2 (E GET))
(JUMPE 1 TAG15)
TAG16 (HRRZ@ 1 0 P)
(PUSH P (SPECIAL CHAR))
(CALL 1 (E SCANWD))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG4)
TAG15 (MOVEI 1 (QUOTE ILL))
(MOVEM 1 (SPECIAL TERMIN))
(MOVEI 1 (QUOTE NIL))
TAG17
TAG4 (SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP SELFREFREPLY SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL REPLY))
(PUSH P 1)
(PUSH P 2)
(MOVE 1 (SPECIAL FLAG))
(JUMPE 1 TAG4)
(TDZA 1 1)
TAG4 (MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL FLAG))
(MOVEI 1 (QUOTE SENSREPLIES))
(CALL 1 (E CHOOSE))
(PUSH P 1)
(MOVE 1 (SPECIAL FLAG))
(JUMPE 1 TAG6)
(MOVE 1 -2 P)
(CALL 1 (E NCONS))
(JRST 0 TAG5)
TAG6 (MOVE 1 -1 P)
(CALL 1 (E NCONS))
(MOVE 2 -2 P)
(CALL 2 (E XCONS))
TAG7
TAG5 (MOVEI 2 (QUOTE (?)))
(CALL 2 (E *APPEND))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *APPEND))
(MOVEM 1 (SPECIAL REPLY))
(SUB P (C 0 0 2 2))
(JRST 0 SPECSTR)
NIL
(LAP SENTYPE SUBR)
(PUSH P 1)
(MOVE 1 (SPECIAL TERMIN))
(CAIE 1 (QUOTE ILL))
(JRST 0 TAG2)
(MOVEI 1 (QUOTE (: BAD INPUT; TRY AGAIN/.)))
(JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE ?))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE Q))
(CALL 2 (E CONS))
(JRST 0 TAG1)
TAG3 (MOVE 1 0 P)
TAG4
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP SPECQUES SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL INP))
(0 0 (SPECIAL WORD))
(0 0 (SPECIAL VALUE))
(MOVE 2 (SPECIAL LASTSTMT))
(MOVEI 1 (QUOTE ANSWERS))
(CALL 2 (E GET))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPE 1 TAG7)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG2)
TAG14 (HLRZ@ 1 -1 P)
(MOVE 2 (SPECIAL INP))
(MOVEM 1 -4 P)
(HLRZ@ 1 1)
(CALL 2 (E MEMBER1))
(MOVEM 1 -3 P)
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(JUMPE 1 TAG17)
(MOVE 1 0 P)
(JRST 0 TAG10)
TAG17
TAG20 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (CLEARM 1 -4 P)
(MOVE 1 0 P)
TAG10 (SUB P (C 0 0 2 2))
(JRST 0 TAG6)
TAG7
TAG22
TAG6 (MOVE 1 -1 P)
(JUMPE 1 TAG25)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL LASTSTMT))
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 1 (E CHOOSEDEL))
(MOVEM 1 (SPECIAL VALUE))
(JRST 0 TAG24)
TAG25
TAG31
TAG24 (MOVE 1 (SPECIAL VALUE))
(JUMPN 1 TAG34)
(HRRZ@ 1 (SPECIAL INP))
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(CAIN 1 (QUOTE WHO))
(JRST 0 TAG37)
(CAIE 1 (QUOTE WHOM))
(JRST 0 TAG36)
TAG37 (MOVEI 1 (QUOTE (THE MAFIA)))
(MOVEM 1 (SPECIAL VALUE))
(JRST 0 TAG35)
TAG36
TAG40
TAG35 (JRST 0 TAG33)
TAG34
TAG42
TAG33 (MOVE 1 -1 P)
(JUMPN 1 TAG45)
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE THEY))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG47)
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE DO))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG51)
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE ARE))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG47)
TAG51 (MOVE 1 (SPECIAL INP))
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 4))
(CALL 2 (E *LESS))
(JUMPE 1 TAG47)
(HLRZ@ 1 (SPECIAL INP))
(CAIE 1 (QUOTE Q))
(JRST 0 TAG47)
(MOVEI 1 (QUOTE (THAT'S RIGHT)))
(MOVEM 1 (SPECIAL VALUE))
(JRST 0 TAG46)
TAG47
TAG52
TAG46 (JRST 0 TAG44)
TAG45
TAG54
TAG44 (MOVE 1 (SPECIAL VALUE))
(JUMPE 1 TAG57)
(CALL 1 (E DELCHECK))
(MOVE 1 (SPECIAL VALUE))
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG56)
TAG57
TAG63
TAG56 (MOVE 1 (SPECIAL VALUE))
(SUB P (C 0 0 4 4))
(JRST 0 SPECSTR)
NIL
(LAP SPECREAX SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL STMT))
(HLRZ@ 1 1)
(CAIE 1 (QUOTE S))
(JRST 0 TAG2)
(MOVEI 1 (QUOTE SILENCE))
(CALL 1 (E CHOOSE))
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE T))
(JRST 0 TAG1)
TAG2 (MOVE 2 (SPECIAL STMT))
(MOVEI 1 (QUOTE YOU))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG3)
(MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE ABNORMAL))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL STMT))
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG3)
(HLRZ@ 1 (SPECIAL STMT))
(CAIE 1 (QUOTE Q))
(JRST 0 TAG11)
(MOVEI 1 (QUOTE 0.30000000))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEM 1 (SPECIAL FJUMP))
(JRST 0 TAG10)
TAG11 (MOVEI 1 (QUOTE 0.5))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEM 1 (SPECIAL FJUMP))
TAG12
TAG10 (MOVEI 1 (QUOTE ALIEN))
(CALL 1 (E CHOOSE))
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE T))
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG14
TAG1 (JRST 0 SPECSTR)
NIL
(LAP SPLIT SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E EXPLODEC))
(CALL 1 (E REVERSE))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG2)
TAG12 (HLRZ@ 1 -1 P)
(MOVEM 1 -2 P)
(MOVE 2 (SPECIAL DASH))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG15)
(MOVE 1 -3 P)
(CALL 1 (E READLIST))
(MOVE 2 -4 P)
(CALL 2 (E CONS))
(CLEARM 1 -3 P)
(MOVEM 1 -4 P)
(MOVE 1 -3 P)
(JRST 0 TAG14)
TAG15 (MOVE 2 -3 P)
(MOVE 1 -2 P)
(CALL 2 (E CONS))
(MOVEM 1 -3 P)
TAG16
TAG14 (MOVEM 1 0 P)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (CLEARM 1 -2 P)
(MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(MOVE 1 -1 P)
(CALL 1 (E READLIST))
(MOVE 2 -2 P)
(SUB P (C 0 0 4 4))
(JCALL 2 (E CONS))
NIL
(LAP STRINGATE SUBR)
(PUSH P 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -4 P)
(JUMPN 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6
TAG7 (HLRZ@ 1 -4 P)
(MOVEI 2 (QUOTE " "))
(MOVEM 1 -1 P)
(CALL 2 (E CAT))
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG12)
(MOVE 2 -3 P)
(MOVE 1 0 P)
(CALL 2 (E CAT))
(JRST 0 TAG11)
TAG12 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
TAG13
TAG11 (MOVEM 1 0 P)
(HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP THREAT SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL STMT))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE NOUNS))
(MOVEI 1 (QUOTE DELWDS))
(CALL 2 (E GET))
(MOVEI 2 (QUOTE VERBS))
(PUSH P 1)
(MOVEI 1 (QUOTE DELWDS))
(CALL 2 (E GET))
(EXCH 2 1)
(POP P 1)
(CALL 2 (E *APPEND))
(MOVE 2 (SPECIAL STMT))
(CALL 2 (E MEMBER1))
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(MOVE 2 (SPECIAL STMT))
(MOVE 1 (SPECIAL NLIST))
(CALL 2 (E MEMBER1))
(JUMPE 1 TAG7)
(MOVE 1 (SPECIAL FEAR))
(CALL 1 (E SUB1))
(MOVEM 1 (SPECIAL FEAR))
(MOVEI 1 (QUOTE CAUTION))
(CALL 1 (E CHOOSE))
(MOVEM 1 0 P)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG6)
TAG7 (MOVE 2 (SPECIAL STMT))
(MOVEI 1 (QUOTE I))
(CALL 2 (E MEMBER))
(JUMPE 1 TAG13)
(MOVEI 1 (QUOTE 0.5))
(MOVEM 1 (SPECIAL FJUMP))
(MOVEI 1 (QUOTE PANIC))
(CALL 1 (E CHOOSE))
(MOVEM 1 0 P)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG6)
TAG13 (CLEARM 1 0 P)
TAG17
TAG6 (JRST 0 TAG4)
TAG5
TAG21
TAG4 (MOVE 1 0 P)
(JUMPE 1 TAG24)
(CALL 1 (E SAY))
(MOVEI 1 (QUOTE T))
(JRST 0 TAG1)
TAG24 (JRST 0 TAG2)
TAG2 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP YES SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL INP))
(MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE BELIEVEREPLIES))
(CALL 2 (E GET))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE DISBELIEF))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL INP))
(CALL 2 (E MEMBER1))
(JUMPN 1 TAG4)
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE NO))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG4)
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE YES))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG3)
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE CERTAINLY))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG3)
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE GUESS))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG3)
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE SURE))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG3)
TAG4 (TDZA 1 1)
TAG3 (MOVEI 1 (QUOTE T))
(JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE IND))
(MOVEI 1 (QUOTE DISBELIEF))
(CALL 2 (E GET))
(MOVE 2 (SPECIAL INP))
(CALL 2 (E MEMBER1))
(JUMPN 1 TAG11)
(MOVE 2 (SPECIAL INP))
(MOVEI 1 (QUOTE NO))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG10)
TAG11 (TDZA 1 1)
TAG10 (MOVEI 1 (QUOTE T))
TAG6
TAG1 (JRST 0 SPECSTR)
NIL
(LAP RESTART SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL POINTERS))
(0 0 (SPECIAL DELNO))
(0 0 (SPECIAL LASTSTMT))
(0 0 (SPECIAL DELFLAG))
(0 0 (SPECIAL FLARE))
(0 0 (SPECIAL FLAG))
(0 0 (SPECIAL FLARELIST))
(0 0 (SPECIAL REMARK))
(0 0 (SPECIAL WEIGHT))
(0 0 (SPECIAL DELAY))
(0 0 (SPECIAL NREF))
(0 0 (SPECIAL QWORD))
(0 0 (SPECIAL GLOBX))
(0 0 (SPECIAL GLOBY))
(0 0 (SPECIAL TERMIN))
(0 0 (SPECIAL RESTSENT))
(0 0 (SPECIAL ANGER))
(0 0 (SPECIAL FEAR))
(0 0 (SPECIAL MISTRUST))
(0 0 (SPECIAL ANGER0))
(0 0 (SPECIAL FEAR0))
(0 0 (SPECIAL MISTRUST0))
(0 0 (SPECIAL TRACEV))
(0 0 (SPECIAL DLIM))
(0 0 (SPECIAL SUPPRESS))
(0 0 (SPECIAL SENSITIVELIST))
(0 0 (SPECIAL DELNLIST))
(0 0 (SPECIAL DELVLIST))
(0 0 (SPECIAL DELALIST))
(0 0 (SPECIAL LIVEFLARES))
(0 0 (SPECIAL LASTTOP))
(0 0 (SPECIAL DEADFLARES))
(0 0 (SPECIAL X))
(0 0 (SPECIAL REST))
(0 0 (SPECIAL SKEP))
(0 0 (SPECIAL DELEND))
(0 0 (SPECIAL AJUMP))
(0 0 (SPECIAL FJUMP))
(0 0 (SPECIAL TELL))
(0 0 (SPECIAL NLIST))
(0 0 (SPECIAL TVAL))
(0 0 (SPECIAL SACTS))
(0 0 (SPECIAL WEAK))
(0 0 (SPECIAL INTERPERS))
(0 0 (SPECIAL EOF))
(0 0 (SPECIAL MESSAGE))
(0 0 (SPECIAL ENDE))
(0 0 (SPECIAL TALK))
(0 0 (SPECIAL SAVE_FILE))
(CALL 0 (E INITIALIZE))
(MOVEI 1 (QUOTE "
END INPUT WITH A PERIOD OR QUESTION MARK, FOLLOWED BY TWO ALTMODES.
SPELL OUT NUMBERS.
TO INDICATE SILENCE, TYPE 'S.'
WHEN FINISHED, TYPE 'BYE.'
")) (CALL 1 (E PRINTSTR))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 (SPECIAL ENDE))
(JUMPN 1 TAG13)
(CLEARM 1 (SPECIAL INTERPERS))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL TALK))
(JUMPE 1 TAG20)
(MOVEI 1 (QUOTE DOCJOB))
(CALL 1 (E JOB_EXISTS))
(JUMPN 1 TAG25)
(MOVEI 1 (QUOTE "THE DOCTOR HAS NOT STARTED RUNNING 'DOCJOB' YET."))
(CALL 1 (E PRINTSTR))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVEI 1 (QUOTE 36))
(CALL 1 (E SLEEP))
(MOVEM 1 0 P)
(MOVEI 1 (QUOTE DOCJOB))
(CALL 1 (E JOB_EXISTS))
(JUMPN 1 TAG36)
(MOVEI 1 (QUOTE "STILL HASN'T STARTED 'DOCJOB'"))
(CALL 1 (E PRINTSTR))
(MOVEI 1 (QUOTE NIL))
(JUMPE 1 TAG35)
TAG36 (MOVE 1 0 P)
(JRST 0 TAG31)
TAG35 (JRST 0 TAG2)
TAG31 (SUB P (C 0 0 1 1))
(MOVEI 1 (QUOTE "OK, HE JUST STARTED IT."))
(CALL 1 (E PRINTSTR))
(CALL 1 (E TERPRI))
(MOVEI 1 (QUOTE 36))
(CALL 1 (E SLEEP))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG24)
TAG25
TAG40
TAG24 (MOVEI 1 (QUOTE (DOC (READ_MESSAGE) NIL)))
(CALL 17 (E INP))
(CALL 1 (E EXPLODEC))
(MOVEM 1 (SPECIAL MESSAGE))
(MOVEI 1 (QUOTE (OWN (PRINT_MESSAGE MESSAGE))))
(CALL 17 (E OUT))
(MOVEI 1 (QUOTE (OWN (TERPRI (READ)))))
(CALL 17 (E INP))
(MOVEM 1 0 P)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG17)
TAG20
TAG42
TAG17 (MOVE 1 0 P)
(JUMPN 1 TAG45)
(MOVEI 1 (QUOTE (OWN (READ_MESSAGE))))
(CALL 17 (E INP))
(MOVEM 1 (SPECIAL MESSAGE))
(JRST 0 TAG44)
TAG45
TAG46
TAG44 (PUSH P (C 0 0 (QUOTE NIL) 0))
TAG3 (MOVE 1 (SPECIAL MESSAGE))
(CALL 1 (E READSENT))
(CALL 1 (E SENTYPE))
(MOVEM 1 (SPECIAL REMARK))
(CALL 1 (E BADINP))
(JUMPE 1 TAG54)
(MOVEI 1 (QUOTE (OWN (READ_MESSAGE))))
(CALL 17 (E INP))
(MOVEM 1 (SPECIAL MESSAGE))
(MOVEM 1 0 P)
(JRST 0 TAG53)
TAG54 (MOVE 1 0 P)
(JRST 0 TAG50)
TAG55
TAG53 (JRST 0 TAG3)
TAG50 (SUB P (C 0 0 1 1))
(MOVE 1 (SPECIAL TALK))
(JUMPN 1 TAG61)
(MOVE 1 (SPECIAL SAVE_FILE))
(JUMPE 1 TAG60)
TAG61 (MOVEI 1 (QUOTE (FILE1 (PRINT_MESSAGE (TERPRI (TERPRI MESSAGE))))))
(CALL 17 (E OUT))
(JRST 0 TAG57)
TAG60
TAG62
TAG57 (MOVE 2 (SPECIAL REMARK))
(MOVEI 1 (QUOTE BYE))
(CALL 2 (E MEMBER))
(JUMPN 1 TAG66)
(MOVEI 2 (QUOTE 18.400000))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG65)
TAG66 (MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL ENDE))
(JRST 0 TAG64)
TAG65 (MOVE 1 (SPECIAL REMARK))
(CALL 1 (E SPECREAX))
(JUMPN 1 TAG74)
(MOVE 1 (SPECIAL REMARK))
(CALL 1 (E DELREF))
(JUMPN 1 TAG74)
(MOVE 1 (SPECIAL REMARK))
(CALL 1 (E SELFREF))
(JUMPN 1 TAG74)
(MOVE 1 (SPECIAL REMARK))
(CALL 1 (E FLAREREF))
(JUMPN 1 TAG74)
(MOVE 1 (SPECIAL REMARK))
(CALL 1 (E PERSREL))
(JUMPN 1 TAG74)
(MOVE 1 (SPECIAL REMARK))
(CALL 1 (E NORMAL))
(JUMPN 1 TAG74)
TAG74 (CALL 0 (E MODIFVAR))
(MOVEI 1 (QUOTE NIL))
TAG67
TAG64 (MOVEI 1 (QUOTE NIL))
(MOVEM 1 -1 P)
(SUB P (C 0 0 1 1))
(JRST 0 TAG12)
TAG13 (MOVE 1 0 P)
(JRST 0 TAG7)
TAG76
TAG12 (JRST 0 TAG1)
TAG7 (SUB P (C 0 0 1 1))
(MOVE 1 (SPECIAL DELFLAG))
(JUMPN 1 TAG103)
(MOVE 1 (SPECIAL FLARE))
(CAIN 1 (QUOTE INIT))
(JRST 0 TAG101)
TAG103 (MOVEI 2 (QUOTE 18.400000))
(MOVE 1 (SPECIAL FEAR))
(CALL 2 (E *GREAT))
(JUMPN 1 TAG101)
(MOVEI 1 (QUOTE 0.09999999))
(MOVEM 1 (SPECIAL AJUMP))
(MOVEI 1 (QUOTE ((OFFENDED) GOOD BYE)))
(JRST 0 TAG100)
TAG101 (MOVEI 1 (QUOTE (BYE)))
TAG104
TAG100 (CALL 1 (E SAY))
(MOVEI 1 (QUOTE T))
(MOVEM 1 (SPECIAL TRACEV))
(CALL 0 (E MODIFVAR))
(MOVEI 1 (QUOTE NIL))
(JRST 0 SPECSTR)
NIL